annotate src/w32term.c @ 24948:970c0b904d35

(compare-windows): Try to find the next window in the current frame before looking at the other frames.
author Andreas Schwab <schwab@suse.de>
date Wed, 14 Jul 1999 08:16:49 +0000
parents de94a8394d25
children ea748fe6dee4
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.
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
2 Copyright (C) 1989, 93, 94, 95, 96, 97, 98 Free Software Foundation, Inc.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4 This file is part of GNU Emacs.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7 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
8 the Free Software Foundation; either version 2, or (at your option)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9 any later version.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
14 GNU General Public License for more details.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
15742
80562f089595 Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 15723
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to the
80562f089595 Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 15723
diff changeset
18 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
80562f089595 Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 15723
diff changeset
19 Boston, MA 02111-1307, USA. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
20
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21 #include <signal.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
22 #include <config.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
23 #include <stdio.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
24 #include "lisp.h"
18507
be4c110cda51 Include charset.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
25 #include "charset.h"
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
26 #include "fontset.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
27 #include "blockinput.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
28
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
29 #include "w32heap.h"
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
30 #include "w32term.h"
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
31 #include <shellapi.h>
13434
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 "systty.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
34 #include "systime.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
35
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
36 #include <ctype.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
37 #include <errno.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
38 #include <setjmp.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
39 #include <sys/stat.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
40
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
41 #include "frame.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
42 #include "dispextern.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
43 #include "termhooks.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
44 #include "termopts.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
45 #include "termchar.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
46 #include "gnu.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
47 #include "disptab.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
48 #include "buffer.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
49 #include "window.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
50 #include "keyboard.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
51 #include "intervals.h"
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
52 #include "coding.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
53
21456
c0496e62b737 (min, max): Define as macros.
Karl Heuer <kwzh@gnu.org>
parents: 20179
diff changeset
54 #undef min
c0496e62b737 (min, max): Define as macros.
Karl Heuer <kwzh@gnu.org>
parents: 20179
diff changeset
55 #undef max
c0496e62b737 (min, max): Define as macros.
Karl Heuer <kwzh@gnu.org>
parents: 20179
diff changeset
56 #define min(x, y) (((x) < (y)) ? (x) : (y))
c0496e62b737 (min, max): Define as macros.
Karl Heuer <kwzh@gnu.org>
parents: 20179
diff changeset
57 #define max(x, y) (((x) > (y)) ? (x) : (y))
c0496e62b737 (min, max): Define as macros.
Karl Heuer <kwzh@gnu.org>
parents: 20179
diff changeset
58
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
59 #define CP_DEFAULT 1004
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
60
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
61 extern unsigned int msh_mousewheel;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
62
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
63 extern void free_frame_menubar ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
64
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
65 extern Lisp_Object Vwindow_system;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
66
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
67 #define x_any_window_to_frame x_window_to_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
68 #define x_top_window_to_frame x_window_to_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
69
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
70
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
71 /* 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
72 struct w32_display_info one_w32_display_info;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
73
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
74 /* 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
75 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
76 NAME is the name of the frame.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
77 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
78 Lisp_Object w32_display_name_list;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
79
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
80 /* Frame being updated by update_frame. This is declared in term.c.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
81 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
82 w32 functions. It is zero while not inside an update.
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
83 In that case, the w32 functions assume that `selected_frame'
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
84 is the frame to apply to. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
85 extern struct frame *updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
86
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
87 /* This is a frame waiting to be autoraised, within w32_read_socket. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
88 struct frame *pending_autoraise_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
89
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
90 /* During an update, maximum vpos for ins/del line operations to affect. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
91
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
92 static int flexlines;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
93
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
94 /* During an update, nonzero if chars output now should be highlighted. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
95
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
96 static int highlight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
97
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
98 /* Nominal cursor position -- where to draw output.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
99 During an update, these are different from the cursor-box position. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
100
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
101 static int curs_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
102 static int curs_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
103
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
104 /* 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
105 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
106 for Far East languages. */
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
107 int w32_enable_unicode_output;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
108
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
109 DWORD dwWindowsThreadId = 0;
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
110 HANDLE hWindowsThread = NULL;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
111 DWORD dwMainThreadId = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
112 HANDLE hMainThread = NULL;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
113
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
114 #ifndef SIF_ALL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
115 /* These definitions are new with Windows 95. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
116 #define SIF_RANGE 0x0001
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
117 #define SIF_PAGE 0x0002
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
118 #define SIF_POS 0x0004
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
119 #define SIF_DISABLENOSCROLL 0x0008
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
120 #define SIF_TRACKPOS 0x0010
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
121 #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
122
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
123 typedef struct tagSCROLLINFO
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
124 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
125 UINT cbSize;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
126 UINT fMask;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
127 int nMin;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
128 int nMax;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
129 UINT nPage;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
130 int nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
131 int nTrackPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
132 } SCROLLINFO, FAR *LPSCROLLINFO;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
133 typedef SCROLLINFO CONST FAR *LPCSCROLLINFO;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
134 #endif /* SIF_ALL */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
135
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
136 /* 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
137 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
138 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
139
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
140 int vertical_scroll_bar_min_handle;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
141 int vertical_scroll_bar_top_border;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
142 int vertical_scroll_bar_bottom_border;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
143
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
144 int last_scroll_bar_drag_pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
145
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
146 /* Mouse movement. */
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 /* Where the mouse was last time we reported a mouse event. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
149 static FRAME_PTR last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
150 static RECT last_mouse_glyph;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
151
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
152 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
153
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
154 Lisp_Object Vw32_swap_mouse_buttons;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
155
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
156 /* 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
157 Lisp_Object Vw32_grab_focus_on_raise;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
158
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
159 /* 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
160 Lisp_Object Vw32_capslock_is_shiftlock;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
161
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
162 /* 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
163 Lisp_Object Vw32_recognize_altgr;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
164
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
165 /* The scroll bar in which the last motion event occurred.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
166
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
167 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
168 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
169 an ordinary motion.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
170
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
171 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
172 to Qnil, to tell w32_mouse_position to return an ordinary motion event. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
173 Lisp_Object last_mouse_scroll_bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
174 int last_mouse_scroll_bar_pos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
175
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
176 /* 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
177 return the time associated with the position it returns, but there
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
178 doesn't seem to be any way to wrest the timestamp from the server
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
179 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
180 of the last movement we received, and return that in hopes that
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
181 it's somewhat accurate. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
182 Time last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
183
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
184 /* Associative list linking character set strings to Windows codepages. */
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
185 Lisp_Object Vw32_charset_to_codepage_alist;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
186
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
187 /* Incremented by w32_read_socket whenever it really tries to read events. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
188 #ifdef __STDC__
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
189 static int volatile input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
190 #else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
191 static int input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
192 #endif
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
193
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
194 extern Lisp_Object Vcommand_line_args, Vsystem_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
195
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
196 extern Lisp_Object Qface, Qmouse_face;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
197
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
198 extern int errno;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
199
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
200 /* A mask of extra modifier bits to put into every keyboard char. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
201 extern int extra_keyboard_modifiers;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
202
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
203 static Lisp_Object Qvendor_specific_keysyms;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
204
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
205 void w32_delete_display ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
206
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
207 static void redraw_previous_char ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
208 static void redraw_following_char ();
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
209 static unsigned int w32_get_modifiers ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
210
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
211 static int fast_find_position ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
212 static void note_mouse_highlight ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
213 static void clear_mouse_face ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
214 static void show_mouse_face ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
215 static void do_line_dance ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
216
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
217 /* Forward declarations for term hooks. Consistency with the rest of Emacs
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
218 requires the use of K&R functions prototypes. However, MSVC does not
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
219 pick up the function prototypes correctly with K&R function definitions,
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
220 and so we declare them first to give a little help to MSVC. */
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
221 static void w32_clear_frame ();
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
222 static void w32_clear_end_of_line (int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
223 static void w32_ins_del_lines (int, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
224 static void w32_change_line_highlight (int, int, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
225 static void w32_insert_glyphs (GLYPH *, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
226 static void w32_write_glyphs (GLYPH *, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
227 static void w32_delete_glyphs (int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
228 static void w32_ring_bell ();
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
229 static void w32_reset_terminal_modes ();
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
230 static void w32_set_terminal_modes ();
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
231 static void w32_update_begin (FRAME_PTR);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
232 static void w32_update_end (FRAME_PTR);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
233 static void w32_set_terminal_window (int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
234 extern int w32_read_socket (int, struct input_event *, int, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
235 static void w32_frame_up_to_date (FRAME_PTR);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
236 static void w32_cursor_to (int, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
237 static void w32_reassert_line_highlight (int, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
238 static void w32_mouse_position (FRAME_PTR *, int, Lisp_Object *,
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
239 enum scroll_bar_part *, Lisp_Object *,
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
240 Lisp_Object *, unsigned long *);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
241 static void w32_frame_rehighlight (FRAME_PTR);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
242 static void w32_frame_raise_lower (FRAME_PTR, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
243 static void w32_set_vertical_scroll_bar (struct window *, int, int, int);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
244 static void w32_condemn_scroll_bars (FRAME_PTR);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
245 static void w32_redeem_scroll_bar (struct window *);
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
246 static void w32_judge_scroll_bars (FRAME_PTR);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
247
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
248 #if 0
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
249 /* This is a function useful for recording debugging information
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
250 about the sequence of occurrences in this file. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
251
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
252 struct record
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
253 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
254 char *locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
255 int type;
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
258 struct record event_record[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
259
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
260 int event_record_index;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
261
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
262 record_event (locus, type)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
263 char *locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
264 int type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
265 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
266 if (event_record_index == sizeof (event_record) / sizeof (struct record))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
267 event_record_index = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
268
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
269 event_record[event_record_index].locus = locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
270 event_record[event_record_index].type = type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
271 event_record_index++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
272 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
273
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
274 #endif /* 0 */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
275
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
276 /* Return the struct w32_display_info. */
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
277
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
278 struct w32_display_info *
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
279 w32_display_info_for_display ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
280 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
281 return (&one_w32_display_info);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
282 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
283
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
284 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
285 w32_fill_rect (f, _hdc, pix, lprect)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
286 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
287 HDC _hdc;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
288 COLORREF pix;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
289 RECT * lprect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
290 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
291 HDC hdc;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
292 HBRUSH hb;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
293 RECT rect;
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 if (_hdc)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
296 hdc = _hdc;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
297 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
298 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
299 if (!f) return;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
300 hdc = get_frame_dc (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
301 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
302
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
303 hb = CreateSolidBrush (pix);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
304 FillRect (hdc, lprect, hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
305 DeleteObject (hb);
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 if (!_hdc)
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
308 release_frame_dc (f, hdc);
13434
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 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
312 w32_clear_window (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
313 FRAME_PTR f;
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 RECT rect;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
316
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
317 GetClientRect (FRAME_W32_WINDOW (f), &rect);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
318 w32_clear_rect (f, NULL, &rect);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
319 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
320
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 /* Starting and ending updates.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
323
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
324 These hooks are called by update_frame at the beginning and end
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
325 of a frame update. We record in `updating_frame' the identity
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
326 of the frame being updated, so that the w32_... functions do not
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
327 need to take a frame as argument. Most of the w32_... functions
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
328 should never be called except during an update, the only exceptions
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
329 being w32_cursor_to, w32_write_glyphs and w32_reassert_line_highlight. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
330
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
331 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
332 w32_update_begin (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
333 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
334 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
335 if (f == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
336 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
337
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
338 flexlines = f->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
339 highlight = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
340
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
341 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
342
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
343 /* Regenerate display palette before drawing if list of requested
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
344 colors has changed. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
345 if (FRAME_W32_DISPLAY_INFO (f)->regen_palette)
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
346 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
347 w32_regenerate_palette (f);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
348 FRAME_W32_DISPLAY_INFO (f)->regen_palette = FALSE;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
349 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
350
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
351 if (f == FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
352 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
353 /* Don't do highlighting for mouse motion during the update. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
354 FRAME_W32_DISPLAY_INFO (f)->mouse_face_defer = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
355
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
356 /* If the frame needs to be redrawn,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
357 simply forget about any prior mouse highlighting. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
358 if (FRAME_GARBAGED_P (f))
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
359 FRAME_W32_DISPLAY_INFO (f)->mouse_face_window = Qnil;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
360
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
361 if (!NILP (FRAME_W32_DISPLAY_INFO (f)->mouse_face_window))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
362 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
363 int firstline, lastline, i;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
364 struct window *w = XWINDOW (FRAME_W32_DISPLAY_INFO (f)->mouse_face_window);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
365
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
366 /* Find the first, and the last+1, lines affected by redisplay. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
367 for (firstline = 0; firstline < f->height; firstline++)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
368 if (FRAME_DESIRED_GLYPHS (f)->enable[firstline])
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
369 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
370
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
371 lastline = f->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
372 for (i = f->height - 1; i >= 0; i--)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
373 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
374 if (FRAME_DESIRED_GLYPHS (f)->enable[i])
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
375 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
376 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
377 lastline = i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
378 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
379
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
380 /* Can we tell that this update does not affect the window
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
381 where the mouse highlight is? If so, no need to turn off.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
382 Likewise, don't do anything if the frame is garbaged;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
383 in that case, the FRAME_CURRENT_GLYPHS that we would use
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
384 are all wrong, and we will redisplay that line anyway. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
385 if (! (firstline > (XFASTINT (w->top) + window_internal_height (w))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
386 || lastline < XFASTINT (w->top)))
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
387 clear_mouse_face (FRAME_W32_DISPLAY_INFO (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
388 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
389 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
390
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
391 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
392 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
393
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
394 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
395 w32_update_end (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
396 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
397 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
398 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
399
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
400 do_line_dance ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
401 x_display_cursor (f, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
402
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
403 if (f == FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
404 FRAME_W32_DISPLAY_INFO (f)->mouse_face_defer = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
405
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
406 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
407 }
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 /* This is called after a redisplay on frame F. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
410
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
411 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
412 w32_frame_up_to_date (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
413 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
414 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
415 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
416 if (FRAME_W32_DISPLAY_INFO (f)->mouse_face_deferred_gc
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
417 || f == FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
418 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
419 note_mouse_highlight (FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_frame,
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
420 FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_x,
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
421 FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_y);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
422 FRAME_W32_DISPLAY_INFO (f)->mouse_face_deferred_gc = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
423 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
424 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
425 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
426
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
427 /* External interface to control of standout mode.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
428 Call this when about to modify line at position VPOS
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
429 and not change whether it is highlighted. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
430
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
431 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
432 w32_reassert_line_highlight (new, vpos)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
433 int new, vpos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
434 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
435 highlight = new;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
436 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
437
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
438 /* Call this when about to modify line at position VPOS
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
439 and change whether it is highlighted. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
440
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
441 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
442 w32_change_line_highlight (new_highlight, vpos, first_unused_hpos)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
443 int new_highlight, vpos, first_unused_hpos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
444 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
445 highlight = new_highlight;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
446 w32_cursor_to (vpos, 0);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
447 w32_clear_end_of_line (updating_frame->width);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
448 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
449
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
450 /* This is used when starting Emacs and when restarting after suspend.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
451 When starting Emacs, no window is mapped. And nothing must be done
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
452 to Emacs's own window if it is suspended (though that rarely happens). */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
453
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
454 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
455 w32_set_terminal_modes (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
456 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
457 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
458
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
459 /* This is called when exiting or suspending Emacs.
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
460 Exiting will make the W32 windows go away, and suspending
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
461 requires no action. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
462
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
463 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
464 w32_reset_terminal_modes (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
465 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
466 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
467
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
468 /* Set the nominal cursor position of the frame.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
469 This is where display update commands will take effect.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
470 This does not affect the place where the cursor-box is displayed. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
471
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
472 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
473 w32_cursor_to (row, col)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
474 register int row, col;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
475 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
476 int orow = row;
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 curs_x = col;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
479 curs_y = row;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
480
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
481 if (updating_frame == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
482 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
483 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
484 x_display_cursor (selected_frame, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
485 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
486 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
487 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
488
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
489 /* Get the Windows codepage corresponding to the specified font. The
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
490 charset info in the font name is used to look up
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
491 w32-charset-to-codepage-alist. */
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
492 int
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
493 w32_codepage_for_font (char *fontname)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
494 {
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
495 Lisp_Object codepage;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
496 char charset_str[20], *charset, *end;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
497
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
498 /* Extract charset part of font string. */
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
499 if (sscanf (fontname,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
500 "-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%*[^-]-%19s",
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
501 charset_str) == EOF)
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
502 return CP_DEFAULT;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
503
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
504 /* Remove leading "*-". */
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
505 if (strncmp ("*-", charset_str, 2) == 0)
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
506 charset = charset_str + 2;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
507 else
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
508 charset = charset_str;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
509
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
510 /* Stop match at wildcard (including preceding '-'). */
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
511 if (end = strchr (charset, '*'))
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
512 {
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
513 if (end > charset && *(end-1) == '-')
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
514 end--;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
515 *end = '\0';
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
516 }
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
517
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
518 codepage = Fcdr (Fassoc (build_string(charset),
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
519 Vw32_charset_to_codepage_alist));
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
520
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
521 if (INTEGERP (codepage))
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
522 return XINT (codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
523 else
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
524 return CP_DEFAULT;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
525 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
526
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
527 BOOL
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
528 w32_use_unicode_for_codepage (codepage)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
529 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
530 /* If the current codepage is supported, use Unicode for output. */
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
531 return (w32_enable_unicode_output
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
532 && codepage != CP_DEFAULT && IsValidCodePage (codepage));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
533 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
534
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
535 /* Dealing with bits of wchar_t as if they were an XChar2B. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
536 #define BUILD_WCHAR_T(byte1, byte2) \
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
537 ((wchar_t)(((byte1 & 0x00ff) << 8) | (byte2 & 0x00ff)))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
538
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
539
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
540 #define BYTE1(ch) \
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
541 ((ch & 0xff00) >> 8)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
542
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
543 #define BYTE2(ch) \
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
544 (ch & 0x00ff)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
545
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
546 #define W32_TEXTOUT(start_offset,nchars) \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
547 { \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
548 int charset_dim = CHARSET_DIMENSION(charset); \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
549 if (font->bdf) \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
550 w32_BDF_TextOut (font->bdf, hdc, left + xoffset, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
551 top + yoffset, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
552 x_1byte_buffer + start_offset, \
24480
f9d3288b66c3 (W32_TEXTOUT): Do not multiply nchars by
Geoff Voelker <voelker@cs.washington.edu>
parents: 24265
diff changeset
553 charset_dim, nchars, 0); \
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
554 else if (print_via_unicode) \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
555 ExtTextOutW (hdc, left + xoffset, top + yoffset, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
556 fuOptions, clip_region, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
557 x_2byte_buffer + start_offset, nchars, NULL); \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
558 else \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
559 ExtTextOut (hdc, left + xoffset, top + yoffset, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
560 fuOptions, clip_region, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
561 x_1byte_buffer + start_offset, \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
562 nchars * charset_dim, NULL); \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
563 start_offset += nchars * (print_via_unicode ? 1 : charset_dim ); \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
564 xoffset += nchars * glyph_width; \
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
565 }
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
566
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
567 /* Display a sequence of N glyphs found at GP.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
568 WINDOW is the window to output to. LEFT and TOP are starting coords.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
569 HL is 1 if this text is highlighted, 2 if the cursor is on it,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
570 3 if should appear in its mouse-face.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
571 JUST_FOREGROUND if 1 means draw only the foreground;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
572 don't alter the background.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
573
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
574 FONT is the default font to use (for glyphs whose font-code is 0).
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
575
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
576 Since the display generation code is responsible for calling
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
577 compute_char_face and compute_glyph_face on everything it puts in
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
578 the display structure, we can assume that the face code on each
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
579 glyph is a valid index into FRAME_COMPUTED_FACES (f), and the one
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
580 to which we can actually apply intern_face.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
581 Call this function with input blocked. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
582
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
583 static int
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
584 dumpglyphs (f, left, top, gp, n, hl, just_foreground, cmpcharp)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
585 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
586 int left, top;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
587 register GLYPH *gp; /* Points to first GLYPH. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
588 register int n; /* Number of glyphs to display. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
589 int hl;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
590 int just_foreground;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
591 struct cmpchar_info *cmpcharp;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
592 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
593 wchar_t *x_2byte_buffer
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
594 = (wchar_t *) alloca (FRAME_WINDOW_WIDTH (f) * sizeof (*x_2byte_buffer));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
595 register wchar_t *cp; /* Steps through x_2byte_buffer[]. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
596
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
597 /* Allocate double the window width, as this buffer may contain MBCS
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
598 characters under w32. Unsigned to let GetCharABCWidths work. */
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
599 unsigned char *x_1byte_buffer
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
600 = (unsigned char *) alloca (2 * FRAME_WINDOW_WIDTH (f)
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
601 * sizeof (*x_1byte_buffer));
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
602 register unsigned char *bp; /* Steps through x_1byte_buffer[]. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
603 register int tlen = GLYPH_TABLE_LENGTH;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
604 register Lisp_Object *tbase = GLYPH_TABLE_BASE;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
605 Window window = FRAME_W32_WINDOW (f);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
606 HDC hdc = get_frame_dc (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
607 int orig_left = left;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
608 int gidx = 0;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
609 int i;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
610
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
611 while (n > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
612 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
613 /* Get the face-code of the next GLYPH. */
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
614 int cf, len, n_chars;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
615 GLYPH g = *gp;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
616 int ch, charset;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
617 Lisp_Object first_ch;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
618 /* HIGHEST and LOWEST are used while drawing a composite
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
619 character. The meanings are described later. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
620 int highest, lowest;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
621
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
622 GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
623 cf = (cmpcharp ? cmpcharp->face_work : FAST_GLYPH_FACE (g));
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
624 ch = FAST_GLYPH_CHAR (g);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
625 if (unibyte_display_via_language_environment
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
626 && SINGLE_BYTE_CHAR_P (ch)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
627 && ch >= 160)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
628 ch = unibyte_char_to_multibyte (ch);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
629 if (gidx == 0) XSETFASTINT (first_ch, ch);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
630 charset = CHAR_CHARSET (ch);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
631 if (charset == CHARSET_COMPOSITION)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
632 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
633 /* We must draw components of the composite character on the
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
634 same column. */
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
635 cmpcharp = cmpchar_table[COMPOSITE_CHAR_ID (ch)];
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
636
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
637 /* Set the face in the slot for work. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
638 cmpcharp->face_work = cf;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
639
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
640 /* We don't need the return value ... */
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
641 dumpglyphs (f, left, top, cmpcharp->glyph, cmpcharp->glyph_len,
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
642 hl, just_foreground, cmpcharp);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
643 /* ... because the width of just drawn text can be
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
644 calculated as follows. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
645 left += FONT_WIDTH (FRAME_FONT (f)) * cmpcharp->width;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
646
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
647 ++gp, --n;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
648 while (gp && (*gp & GLYPH_MASK_PADDING)) ++gp, --n;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
649 cmpcharp = NULL;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
650 continue;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
651 }
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
652
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
653 /* Find the run of consecutive glyphs which can be drawn with
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
654 the same DC (i.e. the same charset and the same face-code).
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
655 Extract their character codes into X_2BYTE_BUFFER.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
656 If CMPCHARP is not NULL, face-code is not checked because we
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
657 use only the face specified in `cmpcharp->face_work'. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
658 cp = x_2byte_buffer;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
659 while (n > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
660 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
661 int this_charset, c1, c2;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
662
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
663 g = *gp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
664 GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
665 ch = FAST_GLYPH_CHAR (g);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
666 if (unibyte_display_via_language_environment
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
667 && SINGLE_BYTE_CHAR_P (ch)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
668 && ch >= 160)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
669 ch = unibyte_char_to_multibyte (ch);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
670 SPLIT_CHAR (ch, this_charset, c1, c2);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
671 if (this_charset != charset
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
672 || (cmpcharp == NULL && FAST_GLYPH_FACE (g) != cf))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
673 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
674
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
675 if (c2 > 0)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
676 *cp = BUILD_WCHAR_T (c1, c2);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
677 else
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
678 *cp = BUILD_WCHAR_T (0, c1);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
679 ++cp;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
680 ++gp, --n;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
681 while (gp && (*gp & GLYPH_MASK_PADDING))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
682 ++gp, --n;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
683 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
684
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
685 /* LEN gets the length of the run. */
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
686 len = cp - x_2byte_buffer;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
687 /* Now output this run of chars, with the font and pixel values
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
688 determined by the face code CF. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
689 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
690 struct face *face = FRAME_DEFAULT_FACE (f);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
691 XFontStruct *font = NULL;
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
692 int fontset;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
693 struct font_info *fontp;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
694 int font_id;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
695 COLORREF fg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
696 COLORREF bg;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
697 int stippled = 0;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
698 int line_height = FRAME_LINE_HEIGHT (f);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
699 /* Pixel width of each glyph in this run. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
700 int glyph_width
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
701 = (FONT_WIDTH (FRAME_FONT (f))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
702 * (cmpcharp ? cmpcharp->width : CHARSET_WIDTH (charset)));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
703 /* Overall pixel width of this run. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
704 int run_width
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
705 = (FONT_WIDTH (FRAME_FONT (f))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
706 * (cmpcharp ? cmpcharp->width : len * CHARSET_WIDTH (charset)));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
707 /* A flag to tell if we have already filled background. We
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
708 fill background in advance in the following cases:
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
709 1) A face has stipple.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
710 2) A height of font is shorter than LINE_HEIGHT.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
711 3) Drawing a composite character.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
712 4) Font has non-zero _MULE_BASELINE_OFFSET property.
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
713 5) Font is a bdf font.
24687
8d4b8adc3c98 (dumpglyphs): Always fill background for italic fonts.
Andrew Innes <andrewi@gnu.org>
parents: 24674
diff changeset
714 6) Font is italic (italic fonts falsely report their height).
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
715 After filling background, we draw glyphs by XDrawString16. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
716 int background_filled;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
717 /* Baseline position of a character, offset from TOP. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
718 int baseline;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
719 /* The property value of `_MULE_RELATIVE_COMPOSE' and
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
720 `_MULE_DEFAULT_ASCENT'. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
721 int relative_compose = 0, default_ascent = 0;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
722 /* 1 if we find no font or a font of inappropriate size. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
723 int require_clipping;
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
724 RECT clip_rectangle;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
725 LPRECT clip_region = NULL;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
726 UINT fuOptions = 0;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
727
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
728 int codepage = CP_DEFAULT;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
729 BOOL print_via_unicode = FALSE;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
730
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
731 /* HL = 3 means use a mouse face previously chosen. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
732 if (hl == 3)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
733 cf = FRAME_W32_DISPLAY_INFO (f)->mouse_face_face_id;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
734
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
735 /* First look at the face of the text itself. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
736 if (cf != 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
737 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
738 /* It's possible for the display table to specify
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
739 a face code that is out of range. Use 0 in that case. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
740 if (cf < 0 || cf >= FRAME_N_COMPUTED_FACES (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
741 || FRAME_COMPUTED_FACES (f) [cf] == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
742 cf = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
743
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
744 if (cf == 1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
745 face = FRAME_MODE_LINE_FACE (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
746 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
747 face = intern_face (f, FRAME_COMPUTED_FACES (f) [cf]);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
748 if (FACE_STIPPLE (face))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
749 stippled = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
750 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
751
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
752 /* Then comes the distinction between modeline and normal text. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
753 else if (hl == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
754 ;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
755 else if (hl == 1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
756 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
757 face = FRAME_MODE_LINE_FACE (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
758 if (FACE_STIPPLE (face))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
759 stippled = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
760 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
761
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
762 /* Setting appropriate font and codepage for this charset. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
763 if (charset != CHARSET_ASCII)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
764 {
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
765 fontset = FACE_FONTSET (face);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
766
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
767 if ((fontset < 0 && (fontset = FRAME_FONTSET (f)) < 0)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
768 || !(fontp = FS_LOAD_FONT (f, FRAME_W32_FONT_TABLE (f),
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
769 charset, NULL, fontset)))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
770 goto font_not_found;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
771
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
772 font = (XFontStruct *) (fontp->font);
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
773 codepage = w32_codepage_for_font (fontp->name);
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
774
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
775 if ( font && !font->bdf )
24480
f9d3288b66c3 (W32_TEXTOUT): Do not multiply nchars by
Geoff Voelker <voelker@cs.washington.edu>
parents: 24265
diff changeset
776 print_via_unicode = w32_use_unicode_for_codepage (codepage);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
777
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
778 baseline = FONT_BASE (font) + fontp->baseline_offset;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
779
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
780 if (cmpcharp && cmpcharp->cmp_rule == NULL)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
781 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
782 relative_compose = fontp->relative_compose;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
783 default_ascent = fontp->default_ascent;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
784 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
785
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
786 /* We have to change code points in the following cases. */
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
787 if (fontp->font_encoder)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
788 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
789 /* This font requires CCL program to calculate code
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
790 point of characters. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
791 struct ccl_program *ccl = fontp->font_encoder;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
792
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
793 if (CHARSET_DIMENSION (charset) == 1)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
794 for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
795 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
796 ccl->reg[0] = charset;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
797 ccl->reg[1] = BYTE2 (*cp);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
798 ccl_driver (ccl, NULL, NULL, 0, 0, NULL);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
799 /* We assume that MSBs are appropriately
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
800 set/reset by CCL program. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
801 #if 0 /* this probably works under NT, but not under 95. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
802 if (font->tm.tmLastChar < 256) /* 1-byte font */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
803 *cp = BUILD_WCHAR_T (0, ccl->reg[1]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
804 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
805 *cp = BUILD_WCHAR_T (ccl->reg[1], ccl->reg[2]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
806 #else /* Assume single dimensional charsets stay so. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
807 *cp = BUILD_WCHAR_T (0, ccl->reg[1]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
808 #endif
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
809 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
810 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
811 for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
812 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
813 ccl->reg[0] = charset;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
814 ccl->reg[1] = BYTE1 (*cp) , ccl->reg[2] = BYTE2 (*cp);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
815 ccl_driver (ccl, NULL, NULL, 0, 0, NULL);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
816 /* We assume that MSBs are appropriately
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
817 set/reset by CCL program. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
818 #if 0 /* this probably works under NT, but not under 95. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
819 if (font->tm.tmLastChar < 256) /* 1-byte font */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
820 *cp = BUILD_WCHAR_T (0, ccl->reg[1]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
821 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
822 *cp = BUILD_WCHAR_T (ccl->reg[1],ccl->reg[2]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
823 #else /* Assume multidimensional charsets stay so. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
824 *cp = BUILD_WCHAR_T (ccl->reg[1],ccl->reg[2]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
825 #endif
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
826 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
827 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
828 else if (fontp->encoding[charset])
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
829 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
830 int enc = fontp->encoding[charset];
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
831
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
832 if ((enc == 1 || enc == 2) && CHARSET_DIMENSION (charset) == 2)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
833 for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
834 *cp = BUILD_WCHAR_T (BYTE1 (*cp) | 0x80, BYTE2 (*cp));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
835 if (enc == 1 || enc == 3)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
836 for (cp = x_2byte_buffer; cp < x_2byte_buffer + len; cp++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
837 *cp = BUILD_WCHAR_T (BYTE1 (*cp), BYTE2 (*cp) | 0x80);
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
838 /* Special encoding for SJIS Kanji. */
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
839 if (enc == 4)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
840 {
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
841 if (CHARSET_DIMENSION (charset) == 2)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
842 {
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
843 int sjis1, sjis2;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
844 for (cp = x_2byte_buffer;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
845 cp < x_2byte_buffer + len; cp++)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
846 {
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
847 ENCODE_SJIS (BYTE1 (*cp), BYTE2 (*cp),
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
848 sjis1, sjis2);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
849 *cp = BUILD_WCHAR_T (sjis1, sjis2);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
850 }
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
851 }
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
852 else
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
853 for (cp = x_2byte_buffer;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
854 cp < x_2byte_buffer + len; cp++)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
855 *cp = BUILD_WCHAR_T (BYTE1 (*cp),
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
856 BYTE2 (*cp) | 0x80);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
857 }
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
858 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
859 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
860 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
861 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
862 font_not_found:
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
863 if (charset == CHARSET_ASCII || charset == charset_latin_iso8859_1)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
864 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
865 font = FACE_FONT (face);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
866 if (!font || font == (XFontStruct *) FACE_DEFAULT)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
867 font = FRAME_FONT (f);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
868 baseline = FONT_BASE (FRAME_FONT (f));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
869 if (charset == charset_latin_iso8859_1)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
870 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
871 if (!font->bdf && font->tm.tmLastChar < 0x80)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
872 /* This font can't display Latin1 characters. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
873 font = NULL;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
874 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
875 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
876 for (cp = x_2byte_buffer;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
877 cp < x_2byte_buffer + len; cp++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
878 *cp = BUILD_WCHAR_T (BYTE1 (*cp),
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
879 BYTE2 (*cp) | 0x80);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
880 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
881 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
882 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
883 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
884
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
885 fg = face->foreground;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
886 bg = face->background;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
887
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
888 /* Now override that if the cursor's on this character. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
889 if (hl == 2)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
890 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
891 /* The cursor overrides stippling. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
892 stippled = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
893
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
894 if (font == FRAME_FONT (f)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
895 && face->background == FRAME_BACKGROUND_PIXEL (f)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
896 && face->foreground == FRAME_FOREGROUND_PIXEL (f)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
897 && !cmpcharp)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
898 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
899 bg = f->output_data.w32->cursor_pixel;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
900 fg = face->background;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
901 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
902 /* Cursor on non-default face: must merge. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
903 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
904 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
905 bg = f->output_data.w32->cursor_pixel;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
906 fg = face->background;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
907 /* If the glyph would be invisible,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
908 try a different foreground. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
909 if (fg == bg)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
910 fg = face->foreground;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
911 if (fg == bg)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
912 fg = f->output_data.w32->cursor_foreground_pixel;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
913 if (fg == bg)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
914 fg = face->foreground;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
915 /* Make sure the cursor is distinct from text in this face. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
916 if (bg == face->background
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
917 && fg == face->foreground)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
918 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
919 bg = face->foreground;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
920 fg = face->background;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
921 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
922 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
923 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
924
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
925 if (font)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
926 require_clipping = (!NILP (Vclip_large_size_font)
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
927 && ((font->bdf
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
928 ? (font->bdf->ury > baseline
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
929 || font->bdf->lly > line_height - baseline)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
930 : (font->tm.tmAscent > baseline
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
931 || font->tm.tmDescent > line_height - baseline))
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
932 || (!cmpcharp && FONT_MAX_WIDTH (font) > glyph_width)));
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
933
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
934 if (font && (just_foreground || (cmpcharp && gidx > 0)))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
935 background_filled = 1;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
936
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
937 /* Stippling not supported under w32. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
938
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
939 else if (!font
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
940 || font->bdf
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
941 || FONT_HEIGHT (font) < line_height
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
942 || FONT_WIDTH (font) < glyph_width
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
943 || FONT_MAX_WIDTH (font) != FONT_WIDTH (font)
24687
8d4b8adc3c98 (dumpglyphs): Always fill background for italic fonts.
Andrew Innes <andrewi@gnu.org>
parents: 24674
diff changeset
944 || font->tm.tmItalic
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
945 || cmpcharp)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
946 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
947 /* Fill in the background for the current run. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
948 w32_fill_area (f, hdc, bg,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
949 left,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
950 top,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
951 run_width,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
952 line_height);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
953 background_filled = 1;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
954 if (cmpcharp)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
955 /* To assure not to fill background while drawing
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
956 remaining components. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
957 just_foreground = 1;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
958 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
959 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
960 background_filled = 0;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
961
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
962 SetBkMode (hdc, background_filled ? TRANSPARENT : OPAQUE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
963 SetTextColor (hdc, fg);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
964 SetBkColor (hdc, bg);
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
965 SetTextAlign (hdc, TA_BASELINE | TA_LEFT);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
966
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
967 /* On NT, where conversion to Unicode has to happen sometime
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
968 when using the normal ExtTextOut facility, we might as well
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
969 take advantage of x_2byte_buffer which is already allocated,
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
970 to avoid the allocation overhead for implicit conversion. */
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
971
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
972 if (!print_via_unicode
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
973 && codepage == CP_DEFAULT
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
974 && w32_enable_unicode_output
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
975 && os_subtype == OS_NT
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
976 && font && !font->bdf)
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
977 {
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
978 print_via_unicode = TRUE;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
979 }
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
980
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
981 /* Note that we can special-case the conversion to Unicode when
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
982 the charset is CHARSET_ASCII (an important case) or Latin-1,
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
983 because x_2byte_buffer in fact already contains the unicode
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
984 characters. So avoid setting up x_1byte_buffer in that case. */
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
985 if (!print_via_unicode
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
986 || (charset != CHARSET_ASCII && charset != charset_latin_iso8859_1))
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
987 {
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
988 /* Convert x_2byte_buffer into a buffer of single byte
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
989 characters - possibly containing MBCS runs. */
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
990 bp = x_1byte_buffer;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
991 for (i = 0; i < len; i++)
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
992 {
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
993 if (BYTE1 (*(x_2byte_buffer + i)))
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
994 *bp++ = BYTE1 (*(x_2byte_buffer + i));
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
995 *bp++ = BYTE2 (*(x_2byte_buffer + i));
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
996 }
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
997 n_chars = bp - x_1byte_buffer;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
998 }
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
999 else
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1000 n_chars = len;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1001
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1002 if (print_via_unicode
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1003 && charset != CHARSET_ASCII && charset != charset_latin_iso8859_1)
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1004 {
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1005 i = MultiByteToWideChar
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1006 (codepage, 0, x_1byte_buffer, n_chars,
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1007 x_2byte_buffer, FRAME_WINDOW_WIDTH (f));
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1008
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1009 /* Make sure we don't display nothing if conversion fails. */
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1010 if (i == 0)
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1011 print_via_unicode = FALSE;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1012 else
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1013 n_chars = i;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1014 }
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1015
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1016 if (font)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1017 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1018 if (font->hfont)
24733
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1019 SelectObject (hdc, font->hfont);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1020
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1021 if (!cmpcharp)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1022 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1023 int xoffset = 0, yoffset = baseline;
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1024 if (require_clipping || FONT_WIDTH (font) != glyph_width
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1025 || FONT_MAX_WIDTH (font) != FONT_WIDTH (font))
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1026 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1027 /* The incrementing of i in this loop is done
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1028 inside the W32_CHAROUT macro. */
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1029 for (i = 0; i < n_chars; )
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1030 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1031 if (require_clipping)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1032 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1033 /* Set up a clipping rectangle for ExtTextOut */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1034 fuOptions |= ETO_CLIPPED;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1035 clip_rectangle.left = left + i * glyph_width;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1036 clip_rectangle.right
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1037 = left + (i + 1) * glyph_width;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1038 clip_rectangle.top = top;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1039 clip_rectangle.bottom = top + line_height;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1040 clip_region = &clip_rectangle;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1041 }
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1042 W32_TEXTOUT (i, 1);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1043 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1044 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1045 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1046 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1047 i = 0;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1048 W32_TEXTOUT (i, n_chars);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1049 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1050 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1051 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1052 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1053 /* Handle composite characters. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1054 RECT clip_rectangle;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1055 LPRECT clip_region = NULL;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1056 UINT fuOptions = 0;
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1057 ABC char_placement;
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1058 int char_width = 0;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1059
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1060 if (require_clipping)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1061 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1062 /* Set up a clipping rectangle for ExtTextOut */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1063 fuOptions |= ETO_CLIPPED;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1064 clip_rectangle.left = left;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1065 clip_rectangle.right = left + glyph_width;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1066 clip_rectangle.top = top;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1067 clip_rectangle.bottom = top + line_height;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1068 clip_region = &clip_rectangle;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1069 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1070 if ((cmpcharp->cmp_rule || relative_compose)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1071 && gidx == 0)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1072 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1073 /* This is the first character. Initialize variables.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1074 HIGHEST is the highest position of glyphs ever
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1075 written, LOWEST the lowest position. */
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1076 int xoffset = 0;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1077 int yoffset = baseline;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1078 int start = 0;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1079
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1080 if (default_ascent
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1081 && CHAR_TABLE_P (Vuse_default_ascent)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1082 && !NILP (Faref (Vuse_default_ascent, first_ch)))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1083 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1084 highest = default_ascent;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1085 lowest = 0;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1086 }
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1087 /* TODO: per char metrics for Truetype and BDF
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1088 fonts. */
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1089 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1090 highest = FONT_BASE (font) + 1;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1091 lowest = - (FONT_HEIGHT (font) - FONT_BASE (font));
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1092 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1093
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1094 if (cmpcharp->cmp_rule)
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1095 xoffset = (int)(cmpcharp->col_offset[0]
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1096 * FONT_WIDTH (FRAME_FONT (f)));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1097
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1098 i = 1;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1099
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1100 /* Truetype fonts often contain underhangs to
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1101 handle composition characters. This works
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1102 against our attempts to position the characters
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1103 manually, so we need to compensate for this.
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1104 */
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1105 if (print_via_unicode ?
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1106 GetCharABCWidthsW (hdc, *x_2byte_buffer,
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1107 *x_2byte_buffer,
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1108 &char_placement)
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1109 : GetCharABCWidths (hdc, *x_1byte_buffer,
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1110 *x_1byte_buffer,
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1111 &char_placement))
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1112 {
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1113 char_width = char_placement.abcA
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1114 + char_placement.abcB + char_placement.abcC;
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1115 xoffset += FONT_WIDTH (font) - char_width;
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1116 }
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1117 /* Don't let characters go beyond the glyph
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1118 boundary whatever their over/underhangs. */
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1119 if (xoffset > glyph_width - char_width)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1120 xoffset = glyph_width - char_width;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1121
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1122 if (xoffset < 0)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1123 xoffset = 0;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1124
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1125 /* Draw the first character at the normal
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1126 position. */
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1127 W32_TEXTOUT (start, 1);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1128 gidx++;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1129 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1130 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1131 i = 0;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1132
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1133 for (; i < n_chars; gidx++)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1134 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1135 int xoffset = 0, yoffset = FONT_BASE (font);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1136
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1137 if (relative_compose)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1138 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1139 /* No per char metrics on w32. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1140 if (NILP (Vignore_relative_composition)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1141 || NILP (Faref (Vignore_relative_composition,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1142 make_number (cmpcharp->glyph[gidx]))))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1143 {
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1144 if (- (FONT_HEIGHT (font) - FONT_BASE (font))
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1145 >= relative_compose)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1146 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1147 /* Draw above the current glyphs. */
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1148 yoffset = highest + FONT_HEIGHT (font);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1149 highest += FONT_HEIGHT (font);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1150 }
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1151 else if (FONT_BASE (font) <= 0)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1152 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1153 /* Draw beneath the current glyphs. */
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1154 yoffset = lowest;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1155 lowest -= FONT_HEIGHT (font);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1156 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1157 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1158 else
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1159 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1160 /* Draw the glyph at normal position. If
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1161 it sticks out of HIGHEST or LOWEST,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1162 update them appropriately. */
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1163 if (FONT_BASE (font) > highest)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1164 highest = FONT_BASE (font);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1165 else if (- (FONT_HEIGHT (font) - FONT_BASE (font))
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1166 < lowest)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1167 lowest = - (FONT_HEIGHT (font) -
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1168 FONT_BASE (font));
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1169 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1170 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1171 else if (cmpcharp->cmp_rule)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1172 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1173 int gref = (cmpcharp->cmp_rule[gidx] - 0xA0) / 9;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1174 int nref = (cmpcharp->cmp_rule[gidx] - 0xA0) % 9;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1175 int bottom, top;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1176
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1177 /* Re-encode GREF and NREF so that they specify
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1178 only Y-axis information:
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1179 0:top, 1:base, 2:bottom, 3:center */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1180 gref = gref / 3 + (gref == 4) * 2;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1181 nref = nref / 3 + (nref == 4) * 2;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1182
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1183 /* No per char metrics on w32. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1184 bottom = ((gref == 0 ? highest : gref == 1 ? 0
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1185 : gref == 2 ? lowest
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1186 : (highest + lowest) / 2)
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1187 - (nref == 0 ? FONT_HEIGHT (font)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1188 : nref == 1 ? (FONT_HEIGHT (font) -
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1189 FONT_BASE (font))
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1190 : nref == 2 ? 0
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1191 : (FONT_HEIGHT (font) / 2)));
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1192 top = bottom + FONT_HEIGHT (font);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1193
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1194 if (top > highest)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1195 highest = top;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1196 if (bottom < lowest)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1197 lowest = bottom;
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1198 yoffset = bottom + FONT_HEIGHT (font);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1199 xoffset = (int)(cmpcharp->col_offset[gidx]
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1200 * FONT_WIDTH (FRAME_FONT(f)));
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1201 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1202
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1203 /* Truetype fonts often contain underhangs to
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1204 handle composition characters. This works
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1205 against our attempts to position the characters
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1206 manually, so we need to compensate for this.
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1207 */
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1208 if (print_via_unicode ?
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1209 GetCharABCWidthsW (hdc, *(x_2byte_buffer + i),
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1210 *(x_2byte_buffer + i),
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1211 &char_placement)
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1212 : GetCharABCWidths (hdc, *(x_1byte_buffer + i),
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1213 *(x_1byte_buffer + i),
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1214 &char_placement))
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1215 {
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1216 char_width = char_placement.abcA
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1217 + char_placement.abcB + char_placement.abcC;
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1218 xoffset += FONT_WIDTH (font) - char_width;
23806
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1219 }
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1220 /* Don't let characters go beyond the glyph
b59294a6167e (dumpglyphs): Use unsigned char arrays.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23677
diff changeset
1221 boundary whatever their over/underhangs. */
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1222 if (xoffset > glyph_width - char_width)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1223 xoffset = glyph_width - char_width;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1224
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1225 if (xoffset < 0)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1226 xoffset = 0;
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1227
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1228 W32_TEXTOUT (i, 1);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1229 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1230 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1231 }
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1232 if (!font)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1233 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1234 /* Show rectangles to indicate that we found no font. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1235 int limit = cmpcharp ? 1 : len;
24733
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1236 HBRUSH hb, oldhb;
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1237 HPEN hp, oldhp;
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1238 hb = CreateSolidBrush (bg);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1239 hp = CreatePen (PS_SOLID, 0, fg);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1240 oldhb = SelectObject(hdc, hb);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1241 oldhp = SelectObject(hdc, hp);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1242
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1243 for (i = 0; i < limit; i++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1244 Rectangle (hdc, left + glyph_width * i, top,
24733
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1245 left + glyph_width * (i + 1),
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1246 top + line_height);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1247
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1248 SelectObject(hdc, oldhb);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1249 SelectObject(hdc, oldhp);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1250 DeleteObject (hb);
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1251 DeleteObject (hp);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1252 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1253 else if (require_clipping && !NILP (Vhighlight_wrong_size_font))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1254 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1255 /* Indicate that we found a font of inappropriate size. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1256 int limit = cmpcharp ? 1 : len;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1257
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1258 for (i = 0; i < limit; i++)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1259 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1260 w32_fill_area (f, hdc, fg, left + glyph_width * i,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1261 top + line_height - 1, glyph_width, 1);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1262 w32_fill_area (f, hdc, fg, left + glyph_width * i,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1263 top + line_height - 3, 1, 2);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1264 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1265 }
24733
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1266
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1267 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1268 /* Setting underline position based on the metric of the
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1269 current font results in shaky underline if it strides
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1270 over different fonts. So, we set the position based only
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1271 on the default font of this frame. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1272 int underline_position = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1273
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1274 if (FONT_HEIGHT (FRAME_FONT (f)) - FONT_BASE(FRAME_FONT (f))
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1275 <= underline_position)
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1276 underline_position = (FONT_HEIGHT (FRAME_FONT (f)) -
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
1277 FONT_BASE(FRAME_FONT (f))) - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1278
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1279 if (face->underline)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1280 w32_fill_area (f, hdc, fg, left,
23638
e6fb9ffee4f4 (dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23510
diff changeset
1281 top + FONT_BASE (FRAME_FONT (f))
e6fb9ffee4f4 (dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23510
diff changeset
1282 + underline_position,
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1283 run_width, 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1284 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1285
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1286 if (!cmpcharp)
24733
8f526771b25b (dumpglyphs): Use correct colours for drawing rectangles in place of
Andrew Innes <andrewi@gnu.org>
parents: 24687
diff changeset
1287 left += run_width;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1288 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1289 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1290 release_frame_dc (f, hdc);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1291
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1292 return (left - orig_left);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1293 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1294
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1295
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1296 /* Output some text at the nominal frame cursor position.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1297 Advance the cursor over the text.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1298 Output LEN glyphs at START.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1299
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1300 `highlight', set up by w32_reassert_line_highlight or w32_change_line_highlight,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1301 controls the pixel values used for foreground and background. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1302
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1303 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1304 w32_write_glyphs (start, len)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1305 register GLYPH *start;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1306 int len;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1307 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1308 register int temp_length;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1309 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1310
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1311 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1312
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1313 do_line_dance ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1314 f = updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1315 if (f == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1316 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1317 f = selected_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1318 /* If not within an update,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1319 output at the frame's visible cursor. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1320 curs_x = f->cursor_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1321 curs_y = f->cursor_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1322 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1323
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1324 dumpglyphs (f,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1325 CHAR_TO_PIXEL_COL (f, curs_x),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1326 CHAR_TO_PIXEL_ROW (f, curs_y),
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
1327 start, len, highlight, 0, NULL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1328
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1329 /* If we drew on top of the cursor, note that it is turned off. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1330 if (curs_y == f->phys_cursor_y
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1331 && curs_x <= f->phys_cursor_x
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1332 && curs_x + len > f->phys_cursor_x)
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1333 f->phys_cursor_on = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1334
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1335 if (updating_frame == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1336 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1337 f->cursor_x += len;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1338 x_display_cursor (f, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1339 f->cursor_x -= len;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1340 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1341 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1342 curs_x += len;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1343
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1344 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1345 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1346
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1347 /* Clear to the end of the line.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1348 Erase the current text line from the nominal cursor position (inclusive)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1349 to column FIRST_UNUSED (exclusive). The idea is that everything
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1350 from FIRST_UNUSED onward is already erased. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1351
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1352 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1353 w32_clear_end_of_line (first_unused)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1354 register int first_unused;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1355 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1356 struct frame *f = updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1357
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1358 if (f == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1359 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1360
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1361 if (curs_y < 0 || curs_y >= f->height)
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1362 return;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1363 if (first_unused <= 0)
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1364 return;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1365
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1366 if (first_unused >= f->width)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1367 first_unused = f->width;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1368
18877
d3e5a5f5fe02 (w32_clear_end_of_line): Include scroll bar width.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18507
diff changeset
1369 first_unused += FRAME_LEFT_SCROLL_BAR_WIDTH (f);
d3e5a5f5fe02 (w32_clear_end_of_line): Include scroll bar width.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18507
diff changeset
1370
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1371 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1372
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1373 do_line_dance ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1374
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1375 /* Notice if the cursor will be cleared by this operation. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1376 if (curs_y == f->phys_cursor_y
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1377 && curs_x <= f->phys_cursor_x
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1378 && f->phys_cursor_x < first_unused)
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1379 f->phys_cursor_on = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1380
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1381 w32_clear_area (f, NULL,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1382 CHAR_TO_PIXEL_COL (f, curs_x),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1383 CHAR_TO_PIXEL_ROW (f, curs_y),
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1384 FONT_WIDTH (f->output_data.w32->font) * (first_unused - curs_x),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1385 f->output_data.w32->line_height);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1386
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1387 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1388 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1389
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1390 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1391 w32_clear_frame ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1392 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1393 struct frame *f = updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1394
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1395 if (f == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1396 f = selected_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1397
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1398 f->phys_cursor_on = 0; /* Cursor not visible. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1399 curs_x = 0; /* Nominal cursor position is top left. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1400 curs_y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1401
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1402 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1403
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1404 w32_clear_window (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1405
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1406 /* We have to clear the scroll bars, too. If we have changed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1407 colors or something like that, then they should be notified. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1408 x_scroll_bar_clear (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1409
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1410 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1411 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1412
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1413 /* Make audible bell. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1414
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1415 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1416 w32_ring_bell (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1417 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1418 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1419
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1420 if (visible_bell)
22059
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1421 {
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1422 int i;
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1423 HWND hwnd = FRAME_W32_WINDOW (selected_frame);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1424
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1425 for (i = 0; i < 5; i++)
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1426 {
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1427 FlashWindow (hwnd, TRUE);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1428 Sleep (10);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1429 }
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1430 FlashWindow (hwnd, FALSE);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
1431 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1432 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1433 w32_sys_ring_bell ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1435 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1436 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1437
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1438 /* Insert and delete character.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1439 These are not supposed to be used because we are supposed to turn
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1440 off the feature of using them. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1441
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1442 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1443 w32_insert_glyphs (start, len)
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1444 register GLYPH *start;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1445 register int len;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1446 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1447 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1448 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1449
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1450 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1451 w32_delete_glyphs (n)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1452 register int n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1453 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1454 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1455 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1456
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1457 /* Specify how many text lines, from the top of the window,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1458 should be affected by insert-lines and delete-lines operations.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1459 This, and those operations, are used only within an update
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1460 that is bounded by calls to w32_update_begin and w32_update_end. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1461
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1462 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1463 w32_set_terminal_window (n)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1464 register int n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1465 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1466 if (updating_frame == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1467 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1468
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1469 if ((n <= 0) || (n > updating_frame->height))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1470 flexlines = updating_frame->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1471 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1472 flexlines = n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1473 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1474
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1475 /* These variables need not be per frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1476 because redisplay is done on a frame-by-frame basis
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1477 and the line dance for one frame is finished before
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1478 anything is done for another frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1479
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1480 /* Array of line numbers from cached insert/delete operations.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1481 line_dance[i] is the old position of the line that we want
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1482 to move to line i, or -1 if we want a blank line there. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1483 static int *line_dance;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1484
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1485 /* Allocated length of that array. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1486 static int line_dance_len;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1487
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1488 /* Flag indicating whether we've done any work. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1489 static int line_dance_in_progress;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1490
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1491 /* Perform an insert-lines or delete-lines operation,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1492 inserting N lines or deleting -N lines at vertical position VPOS. */
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1493
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1494 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1495 w32_ins_del_lines (vpos, n)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1496 int vpos, n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1497 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1498 register int fence, i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1499
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1500 if (vpos >= flexlines)
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1501 return;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1502
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1503 if (!line_dance_in_progress)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1504 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1505 int ht = updating_frame->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1506 if (ht > line_dance_len)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1507 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1508 line_dance = (int *)xrealloc (line_dance, ht * sizeof (int));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1509 line_dance_len = ht;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1510 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1511 for (i = 0; i < ht; ++i) line_dance[i] = i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1512 line_dance_in_progress = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1513 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1514 if (n >= 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1515 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1516 if (n > flexlines - vpos)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1517 n = flexlines - vpos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1518 fence = vpos + n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1519 for (i = flexlines; --i >= fence;)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1520 line_dance[i] = line_dance[i-n];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1521 for (i = fence; --i >= vpos;)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1522 line_dance[i] = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1523 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1524 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1525 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1526 n = -n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1527 if (n > flexlines - vpos)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1528 n = flexlines - vpos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1529 fence = flexlines - n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1530 for (i = vpos; i < fence; ++i)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1531 line_dance[i] = line_dance[i + n];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1532 for (i = fence; i < flexlines; ++i)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1533 line_dance[i] = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1534 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1535 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1536
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1537 /* Here's where we actually move the pixels around.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1538 Must be called with input blocked. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1539 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1540 do_line_dance ()
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1541 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1542 register int i, j, distance;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1543 register struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1544 int ht;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1545 int intborder;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1546 HDC hdc;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1547
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1548 /* Must check this flag first. If it's not set, then not only is the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1549 array uninitialized, but we might not even have a frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1550 if (!line_dance_in_progress)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1551 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1552
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1553 f = updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1554 if (f == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1555 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1556
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1557 ht = f->height;
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1558 intborder = CHAR_TO_PIXEL_COL (f, FRAME_LEFT_SCROLL_BAR_WIDTH (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1559
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1560 x_display_cursor (updating_frame, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1561
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1562 hdc = get_frame_dc (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1563
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1564 for (i = 0; i < ht; ++i)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1565 if (line_dance[i] != -1 && (distance = line_dance[i]-i) > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1566 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1567 for (j = i; (j < ht && line_dance[j] != -1
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1568 && line_dance[j]-j == distance); ++j);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1569 /* Copy [i,j) upward from [i+distance, j+distance) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1570 BitBlt (hdc,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1571 intborder, CHAR_TO_PIXEL_ROW (f, i+distance),
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1572 FRAME_WINDOW_WIDTH (f) * FONT_WIDTH (FRAME_FONT (f)),
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1573 (j-i) * FRAME_LINE_HEIGHT (f),
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1574 hdc,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1575 intborder, CHAR_TO_PIXEL_ROW (f, i),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1576 SRCCOPY);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1577 i = j-1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1578 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1579
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1580 for (i = ht; --i >=0; )
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1581 if (line_dance[i] != -1 && (distance = line_dance[i]-i) < 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1582 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1583 for (j = i; (--j >= 0 && line_dance[j] != -1
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1584 && line_dance[j]-j == distance););
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1585 /* Copy (j, i] downward from (j+distance, i+distance] */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1586 BitBlt (hdc,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1587 intborder, CHAR_TO_PIXEL_ROW (f, j+1+distance),
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1588 FRAME_WINDOW_WIDTH (f) * FONT_WIDTH (FRAME_FONT (f)),
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1589 (i-j) * FRAME_LINE_HEIGHT (f),
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1590 hdc,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1591 intborder, CHAR_TO_PIXEL_ROW (f, j+1),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1592 SRCCOPY);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1593 i = j+1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1594 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1595
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1596 for (i = 0; i < ht; ++i)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1597 if (line_dance[i] == -1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1598 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1599 for (j = i; j < ht && line_dance[j] == -1; ++j);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1600 /* Clear [i,j) */
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1601 w32_clear_area (f, hdc,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1602 intborder,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1603 CHAR_TO_PIXEL_ROW (f, i),
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1604 FRAME_WINDOW_WIDTH (f) * FONT_WIDTH (FRAME_FONT (f)),
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1605 (j-i) * FRAME_LINE_HEIGHT (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1606 i = j-1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1607 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1608 line_dance_in_progress = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1609
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1610 release_frame_dc (f, hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1611 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1612
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1613 /* Support routines for exposure events. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1614 static void clear_cursor ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1615
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1616 /* Output into a rectangle of a window (for frame F)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1617 the characters in f->phys_lines that overlap that rectangle.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1618 TOP and LEFT are the position of the upper left corner of the rectangle.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1619 ROWS and COLS are the size of the rectangle.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1620 Call this function with input blocked. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1621
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1622 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1623 dumprectangle (f, left, top, cols, rows)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1624 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1625 register int left, top, cols, rows;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1626 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1627 register struct frame_glyphs *active_frame = FRAME_CURRENT_GLYPHS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1628 int cursor_cleared = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1629 int bottom, right;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1630 register int y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1631
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1632 if (FRAME_GARBAGED_P (f))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1633 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1634
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1635 /* Express rectangle as four edges, instead of position-and-size. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1636 bottom = top + rows;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1637 right = left + cols;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1638
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1639 /* Convert rectangle edges in pixels to edges in chars.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1640 Round down for left and top, up for right and bottom. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1641 top = PIXEL_TO_CHAR_ROW (f, top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1642 left = PIXEL_TO_CHAR_COL (f, left);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1643 bottom += (f->output_data.w32->line_height - 1);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1644 right += (FONT_WIDTH (f->output_data.w32->font) - 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1645 bottom = PIXEL_TO_CHAR_ROW (f, bottom);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1646 right = PIXEL_TO_CHAR_COL (f, right);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1647
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1648 /* Clip the rectangle to what can be visible. */
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1649 if (left < FRAME_LEFT_SCROLL_BAR_WIDTH (f))
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1650 left = FRAME_LEFT_SCROLL_BAR_WIDTH (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1651 if (top < 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1652 top = 0;
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1653 if (right > f->width + FRAME_LEFT_SCROLL_BAR_WIDTH (f))
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
1654 right = f->width + FRAME_LEFT_SCROLL_BAR_WIDTH (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1655 if (bottom > f->height)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1656 bottom = f->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1657
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1658 /* Get size in chars of the rectangle. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1659 cols = right - left;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1660 rows = bottom - top;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1661
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1662 /* If rectangle has zero area, return. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1663 if (rows <= 0) return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1664 if (cols <= 0) return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1665
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1666 /* Turn off the cursor if it is in the rectangle.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1667 We will turn it back on afterward. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1668 if ((f->phys_cursor_x >= left) && (f->phys_cursor_x < right)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1669 && (f->phys_cursor_y >= top) && (f->phys_cursor_y < bottom))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1670 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1671 clear_cursor (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1672 cursor_cleared = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1673 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1674
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1675 /* Display the text in the rectangle, one text line at a time. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1676
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1677 for (y = top; y < bottom; y++)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1678 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1679 GLYPH *line = &active_frame->glyphs[y][left];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1680
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1681 if (! active_frame->enable[y] || left > active_frame->used[y])
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1682 continue;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1683
24863
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1684 while (*line & GLYPH_MASK_PADDING)
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1685 {
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1686 /* We must display the whole glyph of a wide-column
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1687 character. */
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1688 left--;
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1689 line--;
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1690 cols++;
de94a8394d25 Handle wide characters properly.
Jason Rumney <jasonr@gnu.org>
parents: 24827
diff changeset
1691 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1692 dumpglyphs (f,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1693 CHAR_TO_PIXEL_COL (f, left),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1694 CHAR_TO_PIXEL_ROW (f, y),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1695 line, min (cols, active_frame->used[y] - left),
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
1696 active_frame->highlight[y], 0, NULL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1697 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1698
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1699 /* Turn the cursor on if we turned it off. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1700
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1701 if (cursor_cleared)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1702 x_display_cursor (f, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1703 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1704
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1705 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1706 frame_highlight (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1707 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1708 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1709 x_display_cursor (f, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1710 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1711
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1712 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1713 frame_unhighlight (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1714 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1715 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1716 x_display_cursor (f, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1717 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1718
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1719 static void x_frame_rehighlight ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1720
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1721 /* The focus has changed. Update the frames as necessary to reflect
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1722 the new situation. Note that we can't change the selected frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1723 here, because the Lisp code we are interrupting might become confused.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1724 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
1725 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
1726
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1727 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1728 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
1729 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1730 struct frame *frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1731 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1732 struct frame *old_focus = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1733 int events_enqueued = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1734
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1735 if (frame != dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1736 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1737 /* 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
1738 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
1739 dpyinfo->w32_focus_frame = frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1740
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1741 if (old_focus && old_focus->auto_lower)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1742 x_lower_frame (old_focus);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1743
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1744 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
1745 pending_autoraise_frame = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1746 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1747 pending_autoraise_frame = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1748 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1749
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1750 x_frame_rehighlight (dpyinfo);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1751 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1752
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1753 /* 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
1754
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1755 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1756 x_mouse_leave (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1757 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1758 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1759 x_new_focus_frame (dpyinfo, dpyinfo->w32_focus_event_frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1760 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1761
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1762 /* 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
1763 another frame (this happens when a frame uses a surrogate
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1764 minibuffer frame). Shift the highlight as appropriate.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1765
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1766 The FRAME argument doesn't necessarily have anything to do with which
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1767 frame is being highlighted or unhighlighted; we only use it to find
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1768 the appropriate display info. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1769 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1770 w32_frame_rehighlight (frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1771 struct frame *frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1772 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1773 x_frame_rehighlight (FRAME_W32_DISPLAY_INFO (frame));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1774 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1775
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1776 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1777 x_frame_rehighlight (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1778 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1779 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1780 struct frame *old_highlight = dpyinfo->w32_highlight_frame;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1781
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1782 if (dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1783 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1784 dpyinfo->w32_highlight_frame
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1785 = ((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
1786 ? 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
1787 : dpyinfo->w32_focus_frame);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1788 if (! FRAME_LIVE_P (dpyinfo->w32_highlight_frame))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1789 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1790 FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame) = Qnil;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1791 dpyinfo->w32_highlight_frame = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1792 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1793 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1794 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1795 dpyinfo->w32_highlight_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1796
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1797 if (dpyinfo->w32_highlight_frame != old_highlight)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1798 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1799 if (old_highlight)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1800 frame_unhighlight (old_highlight);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1801 if (dpyinfo->w32_highlight_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1802 frame_highlight (dpyinfo->w32_highlight_frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1803 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1804 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1805
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1806 /* Keyboard processing - modifier keys, etc. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1807
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1808 /* Convert a keysym to its name. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1809
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1810 char *
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1811 x_get_keysym_name (keysym)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1812 int keysym;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1813 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1814 /* Make static so we can always return it */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1815 static char value[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1816
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1817 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1818 GetKeyNameText(keysym, value, 100);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1819 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1820
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1821 return value;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1822 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1823
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1824 /* Mouse clicks and mouse movement. Rah. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1825
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1826 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1827 glyph co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1828 that the glyph at X, Y occupies, if BOUNDS != 0.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1829 If NOCLIP is nonzero, do not force the value into range. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1830
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1831 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1832 pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1833 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1834 register int pix_x, pix_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1835 register int *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1836 RECT *bounds;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1837 int noclip;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1838 {
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1839 /* Support tty mode: if Vwindow_system is nil, behave correctly. */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1840 if (NILP (Vwindow_system))
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1841 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1842 *x = pix_x;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1843 *y = pix_y;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1844 return;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1845 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1846
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1847 /* Arrange for the division in PIXEL_TO_CHAR_COL etc. to round down
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1848 even for negative values. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1849 if (pix_x < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1850 pix_x -= FONT_WIDTH ((f)->output_data.w32->font) - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1851 if (pix_y < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1852 pix_y -= (f)->output_data.w32->line_height - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1853
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1854 pix_x = PIXEL_TO_CHAR_COL (f, pix_x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1855 pix_y = PIXEL_TO_CHAR_ROW (f, pix_y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1856
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1857 if (bounds)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1858 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1859 bounds->left = CHAR_TO_PIXEL_COL (f, pix_x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1860 bounds->top = CHAR_TO_PIXEL_ROW (f, pix_y);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1861 bounds->right = bounds->left + FONT_WIDTH (f->output_data.w32->font) - 1;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1862 bounds->bottom = bounds->top + f->output_data.w32->line_height - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1863 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1864
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1865 if (!noclip)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1866 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1867 if (pix_x < 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1868 pix_x = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1869 else if (pix_x > f->width)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1870 pix_x = f->width;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1871
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1872 if (pix_y < 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1873 pix_y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1874 else if (pix_y > f->height)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1875 pix_y = f->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1876 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1877
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1878 *x = pix_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1879 *y = pix_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1880 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1881
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1882 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1883 glyph_to_pixel_coords (f, x, y, pix_x, pix_y)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1884 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1885 register int x, y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1886 register int *pix_x, *pix_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1887 {
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1888 /* Support tty mode: if Vwindow_system is nil, behave correctly. */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1889 if (NILP (Vwindow_system))
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1890 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1891 *pix_x = x;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1892 *pix_y = y;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1893 return;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1894 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1895
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1896 *pix_x = CHAR_TO_PIXEL_COL (f, x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1897 *pix_y = CHAR_TO_PIXEL_ROW (f, y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1898 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1899
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1900 BOOL
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1901 parse_button (message, pbutton, pup)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1902 int message;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1903 int * pbutton;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1904 int * pup;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1905 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1906 int button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1907 int up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1908
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1909 switch (message)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1910 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1911 case WM_LBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1912 button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1913 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1914 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1915 case WM_LBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1916 button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1917 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1918 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1919 case WM_MBUTTONDOWN:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1920 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1921 button = 1;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1922 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1923 button = 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1924 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1925 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1926 case WM_MBUTTONUP:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1927 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1928 button = 1;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1929 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1930 button = 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1931 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1932 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1933 case WM_RBUTTONDOWN:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1934 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1935 button = 2;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1936 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1937 button = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1938 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1939 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1940 case WM_RBUTTONUP:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1941 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1942 button = 2;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1943 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
1944 button = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1945 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1946 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1947 default:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1948 return (FALSE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1949 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1950
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1951 if (pup) *pup = up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1952 if (pbutton) *pbutton = button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1953
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1954 return (TRUE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1955 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1956
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1957
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1958 /* Prepare a mouse-event in *RESULT for placement in the input queue.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1959
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1960 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
1961 the mouse. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1962
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1963 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1964 construct_mouse_click (result, msg, f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1965 struct input_event *result;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
1966 W32Msg *msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1967 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1968 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1969 int button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1970 int up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1971
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1972 parse_button (msg->msg.message, &button, &up);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1973
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1974 /* Make the event type no_event; we'll change that when we decide
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1975 otherwise. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1976 result->kind = mouse_click;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1977 result->code = button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1978 result->timestamp = msg->msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1979 result->modifiers = (msg->dwModifiers
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1980 | (up
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1981 ? up_modifier
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1982 : down_modifier));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1983
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1984 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1985 int row, column;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1986
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1987 XSETINT (result->x, LOWORD (msg->msg.lParam));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1988 XSETINT (result->y, HIWORD (msg->msg.lParam));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1989 XSETFRAME (result->frame_or_window, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1990 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1991 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1992
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1993 static void
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1994 construct_mouse_wheel (result, msg, f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1995 struct input_event *result;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1996 W32Msg *msg;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1997 struct frame *f;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1998 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
1999 POINT p;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2000 result->kind = mouse_wheel;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2001 result->code = (short) HIWORD (msg->msg.wParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2002 result->timestamp = msg->msg.time;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2003 result->modifiers = msg->dwModifiers;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2004 p.x = LOWORD (msg->msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2005 p.y = HIWORD (msg->msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2006 ScreenToClient(msg->msg.hwnd, &p);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2007 XSETINT (result->x, p.x);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2008 XSETINT (result->y, p.y);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2009 XSETFRAME (result->frame_or_window, f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2010 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2011
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2012 static void
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2013 construct_drag_n_drop (result, msg, f)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2014 struct input_event *result;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2015 W32Msg *msg;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2016 struct frame *f;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2017 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2018 Lisp_Object files;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2019 Lisp_Object frame;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2020 HDROP hdrop;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2021 POINT p;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2022 WORD num_files;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2023 char *name;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2024 int i, len;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2025
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2026 result->kind = drag_n_drop;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2027 result->code = 0;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2028 result->timestamp = msg->msg.time;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2029 result->modifiers = msg->dwModifiers;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2030
24265
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
2031 hdrop = (HDROP) msg->msg.wParam;
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
2032 DragQueryPoint (hdrop, &p);
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
2033
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
2034 #if 0
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2035 p.x = LOWORD (msg->msg.lParam);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2036 p.y = HIWORD (msg->msg.lParam);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2037 ScreenToClient (msg->msg.hwnd, &p);
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
2038 #endif
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
2039
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2040 XSETINT (result->x, p.x);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2041 XSETINT (result->y, p.y);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2042
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2043 num_files = DragQueryFile (hdrop, 0xFFFFFFFF, NULL, 0);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2044 files = Qnil;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2045
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2046 for (i = 0; i < num_files; i++)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2047 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2048 len = DragQueryFile (hdrop, i, NULL, 0);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2049 if (len <= 0)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2050 continue;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2051 name = alloca (len + 1);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2052 DragQueryFile (hdrop, i, name, len + 1);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2053 files = Fcons (build_string (name), files);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2054 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2055
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2056 DragFinish (hdrop);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2057
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2058 XSETFRAME (frame, f);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2059 result->frame_or_window = Fcons (frame, files);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2060 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
2061
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2062
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2063 /* Function to report a mouse movement to the mainstream Emacs code.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2064 The input handler calls this.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2065
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2066 We have received a mouse movement event, which is given in *event.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2067 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
2068 the mainstream emacs code by setting mouse_moved. If not, ask for
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2069 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
2070
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2071 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2072 note_mouse_movement (frame, msg)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2073 FRAME_PTR frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2074 MSG *msg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2075 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2076 last_mouse_movement_time = msg->time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2077
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2078 if (msg->hwnd != FRAME_W32_WINDOW (frame))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2079 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2080 frame->mouse_moved = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2081 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2082
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2083 note_mouse_highlight (frame, -1, -1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2084 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2085
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2086 /* Has the mouse moved off the glyph it was on at the last sighting? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2087 else if (LOWORD (msg->lParam) < last_mouse_glyph.left
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2088 || LOWORD (msg->lParam) > last_mouse_glyph.right
15229
a270351f6e0c (note_mouse_movement): Upwards mouse movement recognition corrected.
Richard M. Stallman <rms@gnu.org>
parents: 15216
diff changeset
2089 || HIWORD (msg->lParam) < last_mouse_glyph.top
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2090 || HIWORD (msg->lParam) > last_mouse_glyph.bottom)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2091 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2092 frame->mouse_moved = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2093 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2094
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2095 note_mouse_highlight (frame, LOWORD (msg->lParam), HIWORD (msg->lParam));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2096 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2097 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2098
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2099 /* This is used for debugging, to turn off note_mouse_highlight. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2100 static int disable_mouse_highlight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2101
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2102 /* Take proper action when the mouse has moved to position X, Y on frame F
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2103 as regards highlighting characters that have mouse-face properties.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2104 Also dehighlighting chars where the mouse was before.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2105 X and Y can be negative or out of range. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2106
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2107 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2108 note_mouse_highlight (f, x, y)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2109 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2110 int x, y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2111 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2112 int row, column, portion;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2113 RECT new_glyph;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2114 Lisp_Object window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2115 struct window *w;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2116
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2117 if (disable_mouse_highlight)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2118 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2119
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2120 FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_x = x;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2121 FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_y = y;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2122 FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_frame = f;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2123
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2124 if (FRAME_W32_DISPLAY_INFO (f)->mouse_face_defer)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2125 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2126
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2127 if (gc_in_progress)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2128 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2129 FRAME_W32_DISPLAY_INFO (f)->mouse_face_deferred_gc = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2130 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2131 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2132
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2133 /* Find out which glyph the mouse is on. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2134 pixel_to_glyph_coords (f, x, y, &column, &row,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2135 &new_glyph, FRAME_W32_DISPLAY_INFO (f)->grabbed);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2136
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2137 /* Which window is that in? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2138 window = window_from_coordinates (f, column, row, &portion);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2139 w = XWINDOW (window);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2140
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2141 /* If we were displaying active text in another window, clear that. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2142 if (! EQ (window, FRAME_W32_DISPLAY_INFO (f)->mouse_face_window))
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2143 clear_mouse_face (FRAME_W32_DISPLAY_INFO (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2144
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2145 /* Are we in a window whose display is up to date?
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2146 And verify the buffer's text has not changed. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2147 if (WINDOWP (window) && portion == 0 && row >= 0 && column >= 0
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2148 && row < FRAME_HEIGHT (f) && column < FRAME_WIDTH (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2149 && EQ (w->window_end_valid, w->buffer)
16209
40552cb9a45d (note_mouse_highlight): Test last_overlay_modified field.
Richard M. Stallman <rms@gnu.org>
parents: 15742
diff changeset
2150 && w->last_modified == BUF_MODIFF (XBUFFER (w->buffer))
40552cb9a45d (note_mouse_highlight): Test last_overlay_modified field.
Richard M. Stallman <rms@gnu.org>
parents: 15742
diff changeset
2151 && w->last_overlay_modified == BUF_OVERLAY_MODIFF (XBUFFER (w->buffer)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2152 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2153 int *ptr = FRAME_CURRENT_GLYPHS (f)->charstarts[row];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2154 int i, pos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2155
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2156 /* Find which buffer position the mouse corresponds to. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2157 for (i = column; i >= 0; i--)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2158 if (ptr[i] > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2159 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2160 pos = ptr[i];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2161 /* Is it outside the displayed active region (if any)? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2162 if (pos <= 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2163 clear_mouse_face (FRAME_W32_DISPLAY_INFO (f));
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2164 else if (! (EQ (window, FRAME_W32_DISPLAY_INFO (f)->mouse_face_window)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2165 && row >= FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2166 && row <= FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2167 && (row > FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2168 || column >= FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_col)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2169 && (row < FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2170 || column < FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_col
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2171 || FRAME_W32_DISPLAY_INFO (f)->mouse_face_past_end)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2172 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2173 Lisp_Object mouse_face, overlay, position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2174 Lisp_Object *overlay_vec;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2175 int len, noverlays, ignor1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2176 struct buffer *obuf;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2177 int obegv, ozv;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2178
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2179 /* If we get an out-of-range value, return now; avoid an error. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2180 if (pos > BUF_Z (XBUFFER (w->buffer)))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2181 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2182
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2183 /* Make the window's buffer temporarily current for
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2184 overlays_at and compute_char_face. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2185 obuf = current_buffer;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2186 current_buffer = XBUFFER (w->buffer);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2187 obegv = BEGV;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2188 ozv = ZV;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2189 BEGV = BEG;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2190 ZV = Z;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2191
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2192 /* Yes. Clear the display of the old active region, if any. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2193 clear_mouse_face (FRAME_W32_DISPLAY_INFO (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2194
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2195 /* Is this char mouse-active? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2196 XSETINT (position, pos);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2197
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2198 len = 10;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2199 overlay_vec = (Lisp_Object *) xmalloc (len * sizeof (Lisp_Object));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2200
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2201 /* Put all the overlays we want in a vector in overlay_vec.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2202 Store the length in len. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2203 noverlays = overlays_at (XINT (pos), 1, &overlay_vec, &len,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2204 NULL, NULL);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2205 noverlays = sort_overlays (overlay_vec, noverlays, w);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2206
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2207 /* Find the highest priority overlay that has a mouse-face prop. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2208 overlay = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2209 for (i = 0; i < noverlays; i++)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2210 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2211 mouse_face = Foverlay_get (overlay_vec[i], Qmouse_face);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2212 if (!NILP (mouse_face))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2213 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2214 overlay = overlay_vec[i];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2215 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2216 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2217 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2218 free (overlay_vec);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2219 /* If no overlay applies, get a text property. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2220 if (NILP (overlay))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2221 mouse_face = Fget_text_property (position, Qmouse_face, w->buffer);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2222
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2223 /* Handle the overlay case. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2224 if (! NILP (overlay))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2225 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2226 /* Find the range of text around this char that
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2227 should be active. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2228 Lisp_Object before, after;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2229 int ignore;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2230
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2231 before = Foverlay_start (overlay);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2232 after = Foverlay_end (overlay);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2233 /* Record this as the current active region. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2234 fast_find_position (window, before,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2235 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_col,
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2236 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2237 FRAME_W32_DISPLAY_INFO (f)->mouse_face_past_end
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2238 = !fast_find_position (window, after,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2239 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_col,
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2240 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2241 FRAME_W32_DISPLAY_INFO (f)->mouse_face_window = window;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2242 FRAME_W32_DISPLAY_INFO (f)->mouse_face_face_id
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2243 = compute_char_face (f, w, pos, 0, 0,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2244 &ignore, pos + 1, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2245
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2246 /* Display it as active. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2247 show_mouse_face (FRAME_W32_DISPLAY_INFO (f), 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2248 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2249 /* Handle the text property case. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2250 else if (! NILP (mouse_face))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2251 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2252 /* Find the range of text around this char that
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2253 should be active. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2254 Lisp_Object before, after, beginning, end;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2255 int ignore;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2256
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2257 beginning = Fmarker_position (w->start);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2258 XSETINT (end, (BUF_Z (XBUFFER (w->buffer))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2259 - XFASTINT (w->window_end_pos)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2260 before
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2261 = Fprevious_single_property_change (make_number (pos + 1),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2262 Qmouse_face,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2263 w->buffer, beginning);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2264 after
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2265 = Fnext_single_property_change (position, Qmouse_face,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2266 w->buffer, end);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2267 /* Record this as the current active region. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2268 fast_find_position (window, before,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2269 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_col,
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2270 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2271 FRAME_W32_DISPLAY_INFO (f)->mouse_face_past_end
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2272 = !fast_find_position (window, after,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2273 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_col,
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2274 &FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2275 FRAME_W32_DISPLAY_INFO (f)->mouse_face_window = window;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2276 FRAME_W32_DISPLAY_INFO (f)->mouse_face_face_id
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2277 = compute_char_face (f, w, pos, 0, 0,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2278 &ignore, pos + 1, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2279
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2280 /* Display it as active. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2281 show_mouse_face (FRAME_W32_DISPLAY_INFO (f), 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2282 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2283 BEGV = obegv;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2284 ZV = ozv;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2285 current_buffer = obuf;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2286 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2287 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2288 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2289
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2290 /* Find the row and column of position POS in window WINDOW.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2291 Store them in *COLUMNP and *ROWP.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2292 This assumes display in WINDOW is up to date.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2293 If POS is above start of WINDOW, return coords
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2294 of start of first screen line.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2295 If POS is after end of WINDOW, return coords of end of last screen line.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2296
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2297 Value is 1 if POS is in range, 0 if it was off screen. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2298
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2299 static int
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2300 fast_find_position (window, pos, columnp, rowp)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2301 Lisp_Object window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2302 int pos;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2303 int *columnp, *rowp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2304 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2305 struct window *w = XWINDOW (window);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2306 FRAME_PTR f = XFRAME (WINDOW_FRAME (w));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2307 int i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2308 int row = 0;
16258
008dd73a2005 (fast_find_position, show_macro_face): Use new WINDOW_LEFT_MARGIN macro.
Richard M. Stallman <rms@gnu.org>
parents: 16209
diff changeset
2309 int left = WINDOW_LEFT_MARGIN (w);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2310 int top = w->top;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2311 int height = XFASTINT (w->height) - ! MINI_WINDOW_P (w);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2312 int width = window_internal_width (w);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2313 int *charstarts;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2314 int lastcol;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2315 int maybe_next_line = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2316
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2317 /* Find the right row. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2318 for (i = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2319 i < height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2320 i++)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2321 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2322 int linestart = FRAME_CURRENT_GLYPHS (f)->charstarts[top + i][left];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2323 if (linestart > pos)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2324 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2325 /* If the position sought is the end of the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2326 don't include the blank lines at the bottom of the window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2327 if (linestart == pos && pos == BUF_ZV (XBUFFER (w->buffer)))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2328 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2329 maybe_next_line = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2330 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2331 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2332 if (linestart > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2333 row = i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2334 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2335
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2336 /* Find the right column with in it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2337 charstarts = FRAME_CURRENT_GLYPHS (f)->charstarts[top + row];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2338 lastcol = left;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2339 for (i = 0; i < width; i++)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2340 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2341 if (charstarts[left + i] == pos)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2342 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2343 *rowp = row + top;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2344 *columnp = i + left;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2345 return 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2346 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2347 else if (charstarts[left + i] > pos)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2348 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2349 else if (charstarts[left + i] > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2350 lastcol = left + i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2351 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2352
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2353 /* If we're looking for the end of the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2354 and we didn't find it in the line we scanned,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2355 use the start of the following line. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2356 if (maybe_next_line)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2357 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2358 row++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2359 i = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2360 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2361
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2362 *rowp = row + top;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2363 *columnp = lastcol;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2364 return 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2365 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2366
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2367 /* Display the active region described by mouse_face_*
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2368 in its mouse-face if HL > 0, in its normal face if HL = 0. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2369
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2370 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2371 show_mouse_face (dpyinfo, hl)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2372 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2373 int hl;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2374 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2375 struct window *w = XWINDOW (dpyinfo->mouse_face_window);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2376 int width = window_internal_width (w);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2377 FRAME_PTR f = XFRAME (WINDOW_FRAME (w));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2378 int i;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2379 int cursor_off = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2380 int old_curs_x = curs_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2381 int old_curs_y = curs_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2382
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2383 /* Set these variables temporarily
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2384 so that if we have to turn the cursor off and on again
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2385 we will put it back at the same place. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2386 curs_x = f->phys_cursor_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2387 curs_y = f->phys_cursor_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2388
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2389 for (i = FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2390 i <= FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row; i++)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2391 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2392 int column = (i == FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2393 ? FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_col
16258
008dd73a2005 (fast_find_position, show_macro_face): Use new WINDOW_LEFT_MARGIN macro.
Richard M. Stallman <rms@gnu.org>
parents: 16209
diff changeset
2394 : WINDOW_LEFT_MARGIN (w));
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2395 int endcolumn = (i == FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2396 ? FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_col
16258
008dd73a2005 (fast_find_position, show_macro_face): Use new WINDOW_LEFT_MARGIN macro.
Richard M. Stallman <rms@gnu.org>
parents: 16209
diff changeset
2397 : WINDOW_LEFT_MARGIN (w) + width);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2398 endcolumn = min (endcolumn, FRAME_CURRENT_GLYPHS (f)->used[i]);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2399
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2400 /* If the cursor's in the text we are about to rewrite,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2401 turn the cursor off. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2402 if (i == curs_y
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2403 && curs_x >= column - 1
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2404 && curs_x <= endcolumn)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2405 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2406 x_display_cursor (f, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2407 cursor_off = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2408 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2409
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2410 dumpglyphs (f,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2411 CHAR_TO_PIXEL_COL (f, column),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2412 CHAR_TO_PIXEL_ROW (f, i),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2413 FRAME_CURRENT_GLYPHS (f)->glyphs[i] + column,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2414 endcolumn - column,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2415 /* Highlight with mouse face if hl > 0. */
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2416 hl > 0 ? 3 : 0, 0, NULL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2417 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2418
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2419 /* If we turned the cursor off, turn it back on. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2420 if (cursor_off)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2421 x_display_cursor (f, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2422
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2423 curs_x = old_curs_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2424 curs_y = old_curs_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2425
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2426 /* Change the mouse cursor according to the value of HL. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2427 if (hl > 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2428 SetCursor (f->output_data.w32->cross_cursor);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2429 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2430 SetCursor (f->output_data.w32->text_cursor);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2431 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2432
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2433 /* Clear out the mouse-highlighted active region.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2434 Redraw it unhighlighted first. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2435
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2436 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2437 clear_mouse_face (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2438 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2439 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2440 if (! NILP (dpyinfo->mouse_face_window))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2441 show_mouse_face (dpyinfo, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2442
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2443 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2444 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2445 dpyinfo->mouse_face_window = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2446 }
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2447
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2448 /* Just discard the mouse face information for frame F, if any.
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2449 This is used when the size of F is changed. */
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2450
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2451 void
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2452 cancel_mouse_face (f)
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2453 FRAME_PTR f;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2454 {
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2455 Lisp_Object window;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2456 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2457
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2458 window = dpyinfo->mouse_face_window;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2459 if (! NILP (window) && XFRAME (XWINDOW (window)->frame) == f)
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2460 {
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2461 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2462 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2463 dpyinfo->mouse_face_window = Qnil;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2464 }
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
2465 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2466
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2467 struct scroll_bar *x_window_to_scroll_bar ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2468 static void x_scroll_bar_report_motion ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2469
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2470 /* Return the current position of the mouse.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2471 *fp should be a frame which indicates which display to ask about.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2472
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2473 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
2474 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
2475 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
2476 position on the scroll bar.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2477
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2478 If the mouse movement started elsewhere, set *fp to the frame the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2479 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
2480 the mouse is over.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2481
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2482 Set *time to the server timestamp for the time at which the mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2483 was at this position.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2484
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2485 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
2486
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2487 This clears the mouse_moved flag, so we can wait for the next mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2488 movement. This also calls XQueryPointer, which will cause the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2489 server to give us another MotionNotify when the mouse moves
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2490 again. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2491
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2492 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2493 w32_mouse_position (fp, insist, bar_window, part, x, y, time)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2494 FRAME_PTR *fp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2495 int insist;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2496 Lisp_Object *bar_window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2497 enum scroll_bar_part *part;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2498 Lisp_Object *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2499 unsigned long *time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2500 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2501 FRAME_PTR f1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2502
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2503 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2504
20179
b4fe0e8ac819 (w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents: 19713
diff changeset
2505 if (! NILP (last_mouse_scroll_bar) && insist == 0)
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2506 /* This is never called at the moment. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2507 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2508 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2509 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2510 POINT pt;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2511
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2512 Lisp_Object frame, tail;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2513
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2514 /* Clear the mouse-moved flag for every frame on this display. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2515 FOR_EACH_FRAME (tail, frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2516 XFRAME (frame)->mouse_moved = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2517
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2518 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2519
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2520 GetCursorPos (&pt);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2521
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2522 /* Now we have a position on the root; find the innermost window
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2523 containing the pointer. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2524 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2525 if (FRAME_W32_DISPLAY_INFO (*fp)->grabbed && last_mouse_frame
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2526 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2527 {
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
2528 /* 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
2529 even if the mouse is now outside it. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2530 f1 = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2531 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2532 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2533 {
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
2534 /* Is window under mouse one of our frames? */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2535 f1 = x_window_to_frame (FRAME_W32_DISPLAY_INFO (*fp), WindowFromPoint(pt));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2536 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2537
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2538 /* If not, is it one of our scroll bars? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2539 if (! f1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2540 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2541 struct scroll_bar *bar = x_window_to_scroll_bar (WindowFromPoint(pt));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2542
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2543 if (bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2544 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2545 f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2546 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2547 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2548
20179
b4fe0e8ac819 (w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents: 19713
diff changeset
2549 if (f1 == 0 && insist > 0)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2550 f1 = selected_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2551
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2552 if (f1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2553 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2554 int ignore1, ignore2;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2555
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2556 ScreenToClient (FRAME_W32_WINDOW (f1), &pt);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2557
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2558 /* Ok, we found a frame. Store all the values. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2559
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2560 pixel_to_glyph_coords (f1, pt.x, pt.y, &ignore1, &ignore2,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2561 &last_mouse_glyph,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2562 FRAME_W32_DISPLAY_INFO (f1)->grabbed
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2563 || insist);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2564
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2565 *bar_window = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2566 *part = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2567 *fp = f1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2568 XSETINT (*x, pt.x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2569 XSETINT (*y, pt.y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2570 *time = last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2571 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2572 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2573 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2574
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2575 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2576 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2577
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2578 /* Scroll bar support. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2579
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2580 /* Given an window ID, find the struct scroll_bar which manages it.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2581 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
2582 bits. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2583 struct scroll_bar *
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2584 x_window_to_scroll_bar (window_id)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2585 Window window_id;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2586 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2587 Lisp_Object tail, frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2588
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2589 for (tail = Vframe_list;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2590 XGCTYPE (tail) == Lisp_Cons;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2591 tail = XCONS (tail)->cdr)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2592 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2593 Lisp_Object frame, bar, condemned;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2594
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2595 frame = XCONS (tail)->car;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2596 /* All elements of Vframe_list should be frames. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2597 if (! GC_FRAMEP (frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2598 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2599
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2600 /* 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
2601 right window ID. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2602 condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2603 for (bar = FRAME_SCROLL_BARS (XFRAME (frame));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2604 /* This trick allows us to search both the ordinary and
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2605 condemned scroll bar lists with one loop. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2606 ! GC_NILP (bar) || (bar = condemned,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2607 condemned = Qnil,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2608 ! GC_NILP (bar));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2609 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
2610 if (SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar)) == window_id)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2611 return XSCROLL_BAR (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2612 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2613
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2614 return 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2615 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2616
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2617 HWND
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2618 my_create_scrollbar (f, bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2619 struct frame * f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2620 struct scroll_bar * bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2621 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2622 return (HWND) SendMessage (FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2623 WM_EMACS_CREATESCROLLBAR, (WPARAM) f,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2624 (LPARAM) bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2625 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2626
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2627 //#define ATTACH_THREADS
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2628
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2629 BOOL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2630 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
2631 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2632 #ifndef ATTACH_THREADS
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2633 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
2634 (WPARAM) hwnd, (LPARAM) how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2635 #else
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2636 return ShowWindow (hwnd, how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2637 #endif
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2638 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2639
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2640 void
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2641 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
2642 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
2643 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2644 #ifndef ATTACH_THREADS
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2645 WINDOWPOS pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2646 pos.hwndInsertAfter = hwndAfter;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2647 pos.x = x;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2648 pos.y = y;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2649 pos.cx = cx;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2650 pos.cy = cy;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2651 pos.flags = flags;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2652 SendMessage (hwnd, WM_EMACS_SETWINDOWPOS, (WPARAM) &pos, 0);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2653 #else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2654 SetWindowPos (hwnd, hwndAfter, x, y, cx, cy, flags);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2655 #endif
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2656 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2657
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2658 BOOL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2659 my_set_focus (f, hwnd)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2660 struct frame * f;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2661 HWND hwnd;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2662 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2663 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_SETFOCUS,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2664 (WPARAM) hwnd, 0);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2665 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2666
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2667 BOOL
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2668 my_set_foreground_window (hwnd)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2669 HWND hwnd;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2670 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2671 SendMessage (hwnd, WM_EMACS_SETFOREGROUND, (WPARAM) hwnd, 0);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2672 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2673
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2674 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2675 my_destroy_window (f, hwnd)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2676 struct frame * f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2677 HWND hwnd;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2678 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2679 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_DESTROYWINDOW,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2680 (WPARAM) hwnd, 0);
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2683 /* Open a new window to serve as a scroll bar, and return the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2684 scroll bar vector for it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2685 static struct scroll_bar *
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2686 x_scroll_bar_create (window, top, left, width, height)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2687 struct window *window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2688 int top, left, width, height;
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 FRAME_PTR f = XFRAME (WINDOW_FRAME (window));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2691 struct scroll_bar *bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2692 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2693 HWND hwnd;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2694
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2695 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2696
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2697 XSETWINDOW (bar->window, window);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2698 XSETINT (bar->top, top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2699 XSETINT (bar->left, left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2700 XSETINT (bar->width, width);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2701 XSETINT (bar->height, height);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2702 XSETINT (bar->start, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2703 XSETINT (bar->end, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2704 bar->dragging = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2705
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2706 /* Requires geometry to be set before call to create the real window */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2707
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2708 hwnd = my_create_scrollbar (f, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2709
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2710 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2711 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2712 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2714 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2715 si.fMask = SIF_ALL;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2716 si.nMin = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2717 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (height)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2718 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2719 si.nPage = si.nMax;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2720 si.nPos = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2721
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2722 pfnSetScrollInfo (hwnd, SB_CTL, &si, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2723 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2724 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2725 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2726 SetScrollRange (hwnd, SB_CTL, 0, VERTICAL_SCROLL_BAR_TOP_RANGE (height), FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2727 SetScrollPos (hwnd, SB_CTL, 0, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2728 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2729
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2730 SET_SCROLL_BAR_W32_WINDOW (bar, hwnd);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2731
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2732 /* Add bar to its frame's list of scroll bars. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2733 bar->next = FRAME_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2734 bar->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2735 XSETVECTOR (FRAME_SCROLL_BARS (f), bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2736 if (! NILP (bar->next))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2737 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2738
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2739 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2740
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2741 return bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2742 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2743
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2744 /* Draw BAR's handle in the proper position.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2745 If the handle is already drawn from START to END, don't bother
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2746 redrawing it, unless REBUILD is non-zero; in that case, always
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2747 redraw it. (REBUILD is handy for drawing the handle after expose
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2748 events.)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2749
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2750 Normally, we want to constrain the start and end of the handle to
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2751 fit inside its rectangle, but if the user is dragging the scroll bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2752 handle, we want to let them drag it down all the way, so that the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2753 bar's top is as far down as it goes; otherwise, there's no way to
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2754 move to the very end of the buffer. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2755 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2756 x_scroll_bar_set_handle (bar, start, end, rebuild)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2757 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2758 int start, end;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2759 int rebuild;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2760 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2761 int dragging = ! NILP (bar->dragging);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2762 Window w = SCROLL_BAR_W32_WINDOW (bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2763 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2764
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2765 /* If the display is already accurate, do nothing. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2766 if (! rebuild
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2767 && start == XINT (bar->start)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2768 && end == XINT (bar->end))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2769 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2770
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2771 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2772
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2773 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2774 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar->height));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2775
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2776 /* Make sure the values are reasonable, and try to preserve
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2777 the distance between start and end. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2778 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2779 int length = end - start;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2780
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2781 if (start < 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2782 start = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2783 else if (start > top_range)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2784 start = top_range;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2785 end = start + length;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2786
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2787 if (end < start)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2788 end = start;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2789 else if (end > top_range && ! dragging)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2790 end = top_range;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2791 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2792 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2793
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2794 /* Store the adjusted setting in the scroll bar. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2795 XSETINT (bar->start, start);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2796 XSETINT (bar->end, end);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2797
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2798 /* If being dragged, let scroll bar update itself. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2799 if (!dragging)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2800 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2801 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2802 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2803 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2804
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2805 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2806 si.fMask = SIF_PAGE | SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2807 si.nPage = end - start + VERTICAL_SCROLL_BAR_MIN_HANDLE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2808 si.nPos = start;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2809
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2810 pfnSetScrollInfo (w, SB_CTL, &si, TRUE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2811 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2812 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2813 SetScrollPos (w, SB_CTL, start, TRUE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2814 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2815
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2816 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2817 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2818
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2819 /* Move a scroll bar around on the screen, to accommodate changing
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2820 window configurations. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2821 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2822 x_scroll_bar_move (bar, top, left, width, height)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2823 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2824 int top, left, width, height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2825 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2826 Window w = SCROLL_BAR_W32_WINDOW (bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2827 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2828
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2829 /* If already correctly positioned, do nothing. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2830 if ( XINT (bar->left) == left
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2831 && XINT (bar->top) == top
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2832 && XINT (bar->width) == width
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2833 && XINT (bar->height) == height )
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2834 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2835 /* Redraw after clear_frame. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2836 if (!my_show_window (f, w, SW_NORMAL))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2837 InvalidateRect (w, NULL, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2838 return;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2839 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2840
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2841 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2842
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2843 /* Make sure scroll bar is "visible" before moving, to ensure the
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2844 area of the parent window now exposed will be refreshed. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2845 my_show_window (f, w, SW_HIDE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2846 MoveWindow (w, left, top, width, height, TRUE);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2847 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2848 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2849 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2850
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2851 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2852 si.fMask = SIF_RANGE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2853 si.nMin = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2854 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (height)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2855 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2856
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2857 pfnSetScrollInfo (w, SB_CTL, &si, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2858 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2859 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2860 SetScrollRange (w, SB_CTL, 0, VERTICAL_SCROLL_BAR_TOP_RANGE (height), FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2861 my_show_window (f, w, SW_NORMAL);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2862 // InvalidateRect (w, NULL, FALSE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2863
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2864 XSETINT (bar->left, left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2865 XSETINT (bar->top, top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2866 XSETINT (bar->width, width);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2867 XSETINT (bar->height, height);
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 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2870 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2871
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2872 /* Destroy the window for BAR, and set its Emacs window's scroll bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2873 to nil. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2874 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2875 x_scroll_bar_remove (bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2876 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2877 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2878 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2879
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2880 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2881
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2882 /* Destroy the window. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2883 my_destroy_window (f, SCROLL_BAR_W32_WINDOW (bar));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2884
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2885 /* Disassociate this scroll bar from its window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2886 XWINDOW (bar->window)->vertical_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2887
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2888 UNBLOCK_INPUT;
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2891 /* Set the handle of the vertical scroll bar for WINDOW to indicate
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2892 that we are displaying PORTION characters out of a total of WHOLE
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2893 characters, starting at POSITION. If WINDOW has no scroll bar,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2894 create one. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2895 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2896 w32_set_vertical_scroll_bar (window, portion, whole, position)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2897 struct window *window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2898 int portion, whole, position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2899 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2900 FRAME_PTR f = XFRAME (WINDOW_FRAME (window));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2901 int top = XINT (window->top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2902 int left = WINDOW_VERTICAL_SCROLL_BAR_COLUMN (window);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2903 int height = WINDOW_VERTICAL_SCROLL_BAR_HEIGHT (window);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2904
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2905 /* Where should this scroll bar be, pixelwise? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2906 int pixel_top = CHAR_TO_PIXEL_ROW (f, top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2907 int pixel_left = CHAR_TO_PIXEL_COL (f, left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2908 int pixel_width
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2909 = (FRAME_SCROLL_BAR_PIXEL_WIDTH (f) > 0
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2910 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2911 : (FRAME_SCROLL_BAR_COLS (f) * FONT_WIDTH (f->output_data.w32->font)));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2912 int pixel_height = VERTICAL_SCROLL_BAR_PIXEL_HEIGHT (f, height);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2913
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2914 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2915
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2916 /* Does the scroll bar exist yet? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2917 if (NILP (window->vertical_scroll_bar))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2918 bar = x_scroll_bar_create (window,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2919 pixel_top, pixel_left,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2920 pixel_width, pixel_height);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2921 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2922 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2923 /* It may just need to be moved and resized. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2924 bar = XSCROLL_BAR (window->vertical_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2925 x_scroll_bar_move (bar, pixel_top, pixel_left, pixel_width, pixel_height);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2926 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2927
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2928 /* Set the scroll bar's current state. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2929 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2930 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (pixel_height);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2931
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2932 if (whole == 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2933 x_scroll_bar_set_handle (bar, 0, top_range, 0);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2934 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2935 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2936 int start = (int) (((double) position * top_range) / whole);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2937 int end = (int) (((double) (position + portion) * top_range) / whole);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2938
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2939 x_scroll_bar_set_handle (bar, start, end, 0);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2940 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
2941 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2942
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2943 XSETVECTOR (window->vertical_scroll_bar, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2944 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2945
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 /* The following three hooks are used when we're doing a thorough
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2948 redisplay of the frame. We don't explicitly know which scroll bars
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2949 are going to be deleted, because keeping track of when windows go
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2950 away is a real pain - "Can you say set-window-configuration, boys
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2951 and girls?" Instead, we just assert at the beginning of redisplay
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2952 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
2953 from the fiery pit when we actually redisplay its window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2954
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2955 /* 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
2956 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2957 `*redeem_scroll_bar_hook' is applied to its window before the judgement. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2958 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2959 w32_condemn_scroll_bars (frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2960 FRAME_PTR frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2961 {
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2962 /* 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
2963 while (! NILP (FRAME_SCROLL_BARS (frame)))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2964 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2965 Lisp_Object bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2966 bar = FRAME_SCROLL_BARS (frame);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2967 FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2968 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
2969 XSCROLL_BAR (bar)->prev = Qnil;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2970 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame)))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2971 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
2972 FRAME_CONDEMNED_SCROLL_BARS (frame) = bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2973 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2974 #ifdef PIGSFLY
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2975 /* The condemned list should be empty at this point; if it's not,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2976 then the rest of Emacs isn't using the condemn/redeem/judge
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2977 protocol correctly. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2978 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame)))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2979 abort ();
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 /* Move them all to the "condemned" list. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2982 FRAME_CONDEMNED_SCROLL_BARS (frame) = FRAME_SCROLL_BARS (frame);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2983 FRAME_SCROLL_BARS (frame) = Qnil;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
2984 #endif
13434
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2987 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2988 Note that WINDOW isn't necessarily condemned at all. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2989 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2990 w32_redeem_scroll_bar (window)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2991 struct window *window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2992 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2993 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2994
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2995 /* 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
2996 if (NILP (window->vertical_scroll_bar))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2997 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2998
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2999 bar = XSCROLL_BAR (window->vertical_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3000
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3001 /* Unlink it from the condemned list. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3002 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3003 FRAME_PTR f = XFRAME (WINDOW_FRAME (window));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3004
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3005 if (NILP (bar->prev))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3006 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3007 /* If the prev pointer is nil, it must be the first in one of
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3008 the lists. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3009 if (EQ (FRAME_SCROLL_BARS (f), window->vertical_scroll_bar))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3010 /* It's not condemned. Everything's fine. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3011 return;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3012 else if (EQ (FRAME_CONDEMNED_SCROLL_BARS (f),
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3013 window->vertical_scroll_bar))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3014 FRAME_CONDEMNED_SCROLL_BARS (f) = bar->next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3015 else
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3016 /* If its prev pointer is nil, it must be at the front of
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3017 one or the other! */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3018 abort ();
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3019 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3020 else
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3021 XSCROLL_BAR (bar->prev)->next = bar->next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3022
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3023 if (! NILP (bar->next))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3024 XSCROLL_BAR (bar->next)->prev = bar->prev;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3025
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3026 bar->next = FRAME_SCROLL_BARS (f);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3027 bar->prev = Qnil;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3028 XSETVECTOR (FRAME_SCROLL_BARS (f), bar);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3029 if (! NILP (bar->next))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3030 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3031 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3032 #ifdef PIGSFLY
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3033 struct scroll_bar *bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3034
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3035 /* We can't redeem this window's scroll bar if it doesn't have one. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3036 if (NILP (window->vertical_scroll_bar))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3037 abort ();
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3038
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3039 bar = XSCROLL_BAR (window->vertical_scroll_bar);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3040
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3041 /* Unlink it from the condemned list. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3042 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3043 FRAME_PTR f = XFRAME (WINDOW_FRAME (window));
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3044
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3045 if (NILP (bar->prev))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3046 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3047 /* If the prev pointer is nil, it must be the first in one of
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3048 the lists. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3049 if (EQ (FRAME_SCROLL_BARS (f), window->vertical_scroll_bar))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3050 /* It's not condemned. Everything's fine. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3051 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3052 else if (EQ (FRAME_CONDEMNED_SCROLL_BARS (f),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3053 window->vertical_scroll_bar))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3054 FRAME_CONDEMNED_SCROLL_BARS (f) = bar->next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3055 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3056 /* If its prev pointer is nil, it must be at the front of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3057 one or the other! */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3058 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3059 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3060 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3061 XSCROLL_BAR (bar->prev)->next = bar->next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3062
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3063 if (! NILP (bar->next))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3064 XSCROLL_BAR (bar->next)->prev = bar->prev;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3065
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3066 bar->next = FRAME_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3067 bar->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3068 XSETVECTOR (FRAME_SCROLL_BARS (f), bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3069 if (! NILP (bar->next))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3070 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3071 }
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3072 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3073 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3074
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3075 /* 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
3076 last call to `*condemn_scroll_bars_hook'. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3077 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3078 w32_judge_scroll_bars (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3079 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3080 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3081 Lisp_Object bar, next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3082
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3083 bar = FRAME_CONDEMNED_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3084
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3085 /* 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
3086 more events on the hapless scroll bars. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3087 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3088
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3089 for (; ! NILP (bar); bar = next)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3090 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3091 struct scroll_bar *b = XSCROLL_BAR (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3092
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3093 x_scroll_bar_remove (b);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3094
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3095 next = b->next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3096 b->next = b->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3097 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3098
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3099 /* Now there should be no references to the condemned scroll bars,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3100 and they should get garbage-collected. */
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3101 #ifdef PIGSFLY
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3102 Lisp_Object bar, next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3103
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3104 bar = FRAME_CONDEMNED_SCROLL_BARS (f);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3105
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3106 /* Clear out the condemned list now so we won't try to process any
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3107 more events on the hapless scroll bars. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3108 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3109
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3110 for (; ! NILP (bar); bar = next)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3111 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3112 struct scroll_bar *b = XSCROLL_BAR (bar);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3113
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3114 x_scroll_bar_remove (b);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3115
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3116 next = b->next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3117 b->next = b->prev = Qnil;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3118 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3119
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3120 /* Now there should be no references to the condemned scroll bars,
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3121 and they should get garbage-collected. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3122 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3123 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3124
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3125 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3126 is set to something other than no_event, it is enqueued.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3127
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3128 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
3129 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
3130
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3131 static int
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3132 x_scroll_bar_handle_click (bar, msg, emacs_event)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3133 struct scroll_bar *bar;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3134 W32Msg *msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3135 struct input_event *emacs_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3136 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3137 if (! GC_WINDOWP (bar->window))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3138 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3139
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3140 emacs_event->kind = w32_scroll_bar_click;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3141 emacs_event->code = 0;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3142 /* not really meaningful to distinguish up/down */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3143 emacs_event->modifiers = msg->dwModifiers;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3144 emacs_event->frame_or_window = bar->window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3145 emacs_event->timestamp = msg->msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3146
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3147 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3148 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar->height));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3149 int y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3150 int dragging = !NILP (bar->dragging);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3151
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3152 if (pfnGetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3153 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3154 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3155
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3156 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3157 si.fMask = SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3158
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3159 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
3160 y = si.nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3161 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3162 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3163 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
3164
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3165 bar->dragging = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3166
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3167 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
3168 {
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3169 case SB_LINEDOWN:
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3170 emacs_event->part = scroll_bar_down_arrow;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3171 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3172 case SB_LINEUP:
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3173 emacs_event->part = scroll_bar_up_arrow;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3174 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3175 case SB_PAGEUP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3176 emacs_event->part = scroll_bar_above_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3177 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3178 case SB_PAGEDOWN:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3179 emacs_event->part = scroll_bar_below_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3180 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3181 case SB_TOP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3182 emacs_event->part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3183 y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3184 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3185 case SB_BOTTOM:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3186 emacs_event->part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3187 y = top_range;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3188 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3189 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
3190 case SB_THUMBPOSITION:
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3191 if (VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar->height)) <= 0xffff)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3192 y = HIWORD (msg->msg.wParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3193 bar->dragging = Qt;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3194 emacs_event->part = scroll_bar_handle;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3195
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3196 /* "Silently" update current position. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3197 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3198 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3199 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3200
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3201 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3202 si.fMask = SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3203
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3204 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3205 /* Shrink handle if necessary to allow full range for position. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3206 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3207 int start = XINT (bar->start);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3208 int end = XINT (bar->end);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3209 int len = end - start;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3210
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3211 /* If new end is nearly hitting bottom, we must shrink
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3212 handle. How much we shrink it depends on the relative
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3213 sizes of len and top_range. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3214 if (y + len > top_range - 2)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3215 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3216 len -= min (top_range / 10, (len / 3) + 2);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3217 if (len < 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3218 len = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3219 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3220 si.nPage = len + VERTICAL_SCROLL_BAR_MIN_HANDLE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3221 si.fMask |= SIF_PAGE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3222 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3223 #endif
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3224 si.nPos = y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3225 /* 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
3226 position, so don't set that directly. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3227 last_scroll_bar_drag_pos = y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3228
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3229 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
3230 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3231 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3232 SetScrollPos (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, y, FALSE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3233 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
3234 case SB_ENDSCROLL:
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3235 /* 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
3236 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
3237 nothing. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3238 if (dragging)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3239 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3240 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3241 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3242 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3243 int start = XINT (bar->start);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3244 int end = XINT (bar->end);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3245
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3246 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3247 si.fMask = SIF_PAGE | SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3248 si.nPage = end - start + VERTICAL_SCROLL_BAR_MIN_HANDLE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3249 si.nPos = last_scroll_bar_drag_pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3250
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3251 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
3252 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3253 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3254 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
3255 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3256 /* 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
3257 default:
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3258 emacs_event->kind = no_event;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3259 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
3260 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3261
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3262 XSETINT (emacs_event->x, y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3263 XSETINT (emacs_event->y, top_range);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3264
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3265 return TRUE;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3266 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3267 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3268
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3269 /* Return information to the user about the current position of the mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3270 on the scroll bar. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3271 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3272 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3273 FRAME_PTR *fp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3274 Lisp_Object *bar_window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3275 enum scroll_bar_part *part;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3276 Lisp_Object *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3277 unsigned long *time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3278 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3279 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
3280 Window w = SCROLL_BAR_W32_WINDOW (bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3281 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3282 int pos;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3283 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar->height));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3284
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3285 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3286
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3287 *fp = f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3288 *bar_window = bar->window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3289
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3290 if (pfnGetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3291 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3292 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3293
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3294 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3295 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
3296
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3297 pfnGetScrollInfo (w, SB_CTL, &si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3298 pos = si.nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3299 top_range = si.nMax - si.nPage + 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3300 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3301 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3302 pos = GetScrollPos (w, SB_CTL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3303
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3304 switch (LOWORD (last_mouse_scroll_bar_pos))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3305 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3306 case SB_THUMBPOSITION:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3307 case SB_THUMBTRACK:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3308 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3309 if (VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar->height)) <= 0xffff)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3310 pos = HIWORD (last_mouse_scroll_bar_pos);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3311 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3312 case SB_LINEDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3313 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3314 pos++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3315 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3316 default:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3317 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3318 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3319 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3320
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3321 XSETINT(*x, pos);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3322 XSETINT(*y, top_range);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3323
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3324 f->mouse_moved = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3325 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3326
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3327 *time = last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3328
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3329 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3330 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3331
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3332 /* The screen has been cleared so we may have changed foreground or
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3333 background colors, and the scroll bars may need to be redrawn.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3334 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
3335 redraw them. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3336
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3337 x_scroll_bar_clear (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3338 FRAME_PTR f;
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 Lisp_Object bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3341
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3342 for (bar = FRAME_SCROLL_BARS (f); VECTORP (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3343 bar = XSCROLL_BAR (bar)->next)
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3344 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3345 HWND window = SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar));
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3346 HDC hdc = GetDC (window);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3347 RECT rect;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3348
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3349 /* Hide scroll bar until ready to repaint. x_scroll_bar_move
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3350 arranges to refresh the scroll bar if hidden. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3351 my_show_window (f, window, SW_HIDE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3352
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3353 GetClientRect (window, &rect);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3354 select_palette (f, hdc);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3355 w32_clear_rect (f, hdc, &rect);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3356 deselect_palette (f, hdc);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3357
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3358 ReleaseDC (window, hdc);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3359 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3360 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3361
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3362 show_scroll_bars (f, how)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3363 FRAME_PTR f;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3364 int how;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3365 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3366 Lisp_Object bar;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3367
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3368 for (bar = FRAME_SCROLL_BARS (f); VECTORP (bar);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3369 bar = XSCROLL_BAR (bar)->next)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3370 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3371 HWND window = SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar));
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3372 my_show_window (f, window, how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3373 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3374 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3375
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3376
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3377 /* The main W32 event-reading loop - w32_read_socket. */
13434
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 /* Timestamp of enter window event. This is only used by w32_read_socket,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3380 but we have to put it out here, since static variables within functions
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3381 sometimes don't work. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3382 static Time enter_timestamp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3383
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3384 /* Record the last 100 characters stored
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3385 to help debug the loss-of-chars-during-GC problem. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3386 int temp_index;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3387 short temp_buffer[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3388
14462
599a3ae1e8ea (convert_to_key_event, is_dead_key): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14351
diff changeset
3389
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3390 /* Read events coming from the W32 shell.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3391 This routine is called by the SIGIO handler.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3392 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
3393
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3394 Events representing keys are stored in buffer BUFP,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3395 which can hold up to NUMCHARS characters.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3396 We return the number of characters stored into the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3397 thus pretending to be `read'.
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 EXPECTED is nonzero if the caller knows input is available.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3400
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3401 Some of these messages are reposted back to the message queue since the
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
3402 system calls the windows proc directly in a context where we cannot return
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
3403 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
3404 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
3405 will set a variable to indicate we are in the read_socket call and indicate
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
3406 which message we are processing since the windows proc gets called
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
3407 recursively with different messages by the system.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3408 */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3409
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3410 int
16326
a85909645f7a (w32_read_socket): Delete WAITP arg.
Richard M. Stallman <rms@gnu.org>
parents: 16258
diff changeset
3411 w32_read_socket (sd, bufp, numchars, expected)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3412 register int sd;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3413 register struct input_event *bufp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3414 register int numchars;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3415 int expected;
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 int count = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3418 int check_visibility = 0;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3419 W32Msg msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3420 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3421 Lisp_Object part;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3422 struct w32_display_info *dpyinfo = &one_w32_display_info;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3423
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3424 if (interrupt_input_blocked)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3425 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3426 interrupt_input_pending = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3427 return -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3428 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3429
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3430 interrupt_input_pending = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3431 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3432
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3433 /* So people can tell when we have read the available input. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3434 input_signal_count++;
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 if (numchars <= 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3437 abort (); /* Don't think this happens. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3438
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3439 while (get_next_msg (&msg, FALSE))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3440 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3441 switch (msg.msg.message)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3442 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3443 case WM_PAINT:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3444 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3445
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3446 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3447 {
21740
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3448 if (msg.rect.right == msg.rect.left ||
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3449 msg.rect.bottom == msg.rect.top)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3450 {
21740
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3451 /* We may get paint messages even though the client
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3452 area is clipped - these are not expose events. */
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3453 DebPrint (("clipped frame %04x (%s) got WM_PAINT\n", f,
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3454 XSTRING (f->name)->data));
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3455 }
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3456 else if (f->async_visible != 1)
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3457 {
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3458 /* Definitely not obscured, so mark as visible. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3459 f->async_visible = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3460 f->async_iconified = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3461 SET_FRAME_GARBAGED (f);
21740
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3462 DebPrint (("frame %04x (%s) reexposed\n", f,
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
3463 XSTRING (f->name)->data));
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3464
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3465 /* WM_PAINT serves as MapNotify as well, so report
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3466 visibility changes properly. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3467 if (f->iconified)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3468 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3469 bufp->kind = deiconify_event;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3470 XSETFRAME (bufp->frame_or_window, f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3471 bufp++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3472 count++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3473 numchars--;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3474 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3475 else if (! NILP(Vframe_list)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3476 && ! NILP (XCONS (Vframe_list)->cdr))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3477 /* Force a redisplay sooner or later to update the
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3478 frame titles in case this is the second frame. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3479 record_asynch_buffer_change ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3480 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3481 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3482 {
15723
d2cee951f37e (w32_read_socket): Need to erase background
Karl Heuer <kwzh@gnu.org>
parents: 15651
diff changeset
3483 /* Erase background again for safety. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3484 w32_clear_rect (f, NULL, &msg.rect);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3485 dumprectangle (f,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3486 msg.rect.left,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3487 msg.rect.top,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3488 msg.rect.right - msg.rect.left,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3489 msg.rect.bottom - msg.rect.top);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3490 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3491 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3492 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3493
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3494 case WM_INPUTLANGCHANGE:
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3495 /* Generate a language change event. */
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3496 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
3497
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3498 if (f)
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3499 {
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3500 if (numchars == 0)
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3501 abort ();
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3502
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3503 bufp->kind = language_change_event;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3504 XSETFRAME (bufp->frame_or_window, f);
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3505 bufp->code = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3506 bufp->modifiers = msg.msg.lParam & 0xffff;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3507 bufp++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3508 count++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3509 numchars--;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3510 }
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3511 break;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3512
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3513 case WM_KEYDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3514 case WM_SYSKEYDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3515 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3516
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3517 if (f && !f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3518 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3519 if (temp_index == sizeof temp_buffer / sizeof (short))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3520 temp_index = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3521 temp_buffer[temp_index++] = msg.msg.wParam;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3522 bufp->kind = non_ascii_keystroke;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3523 bufp->code = msg.msg.wParam;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3524 bufp->modifiers = msg.dwModifiers;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3525 XSETFRAME (bufp->frame_or_window, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3526 bufp->timestamp = msg.msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3527 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3528 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3529 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3530 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3531 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3532
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3533 case WM_SYSCHAR:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3534 case WM_CHAR:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3535 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3536
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3537 if (f && !f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3538 {
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3539 if (temp_index == sizeof temp_buffer / sizeof (short))
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3540 temp_index = 0;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3541 temp_buffer[temp_index++] = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3542 bufp->kind = ascii_keystroke;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3543 bufp->code = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3544 bufp->modifiers = msg.dwModifiers;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3545 XSETFRAME (bufp->frame_or_window, f);
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3546 bufp->timestamp = msg.msg.time;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3547 bufp++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3548 numchars--;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3549 count++;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3550 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3551 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3552
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3553 case WM_MOUSEMOVE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3554 if (dpyinfo->grabbed && last_mouse_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3555 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3556 f = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3557 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3558 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3559
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3560 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3561 note_mouse_movement (f, &msg.msg);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3562 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3563 clear_mouse_face (FRAME_W32_DISPLAY_INFO (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3564
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3565 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3566
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3567 case WM_LBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3568 case WM_LBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3569 case WM_MBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3570 case WM_MBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3571 case WM_RBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3572 case WM_RBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3573 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3574 int button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3575 int up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3576
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3577 if (dpyinfo->grabbed && last_mouse_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3578 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3579 f = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3580 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3581 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3582
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3583 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3584 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3585 if ((!dpyinfo->w32_focus_frame || f == dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3586 && (numchars >= 1))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3587 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3588 construct_mouse_click (bufp, &msg, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3589 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3590 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3591 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3592 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3593 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3594
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3595 parse_button (msg.msg.message, &button, &up);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3596
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3597 if (up)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3598 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3599 dpyinfo->grabbed &= ~ (1 << button);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3600 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3601 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3602 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3603 dpyinfo->grabbed |= (1 << button);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3604 last_mouse_frame = f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3605 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3606 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3607 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3608
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3609 case WM_MOUSEWHEEL:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3610 if (dpyinfo->grabbed && last_mouse_frame
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3611 && FRAME_LIVE_P (last_mouse_frame))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3612 f = last_mouse_frame;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3613 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3614 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
3615
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3616 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3617 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3618 if ((!dpyinfo->w32_focus_frame
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3619 || f == dpyinfo->w32_focus_frame)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3620 && (numchars >= 1))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3621 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3622 construct_mouse_wheel (bufp, &msg, f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3623 bufp++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3624 count++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3625 numchars--;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3626 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3627 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3628 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3629
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3630 case WM_DROPFILES:
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3631 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3632
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3633 if (f)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3634 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3635 construct_drag_n_drop (bufp, &msg, f);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3636 bufp++;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3637 count++;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3638 numchars--;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3639 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3640 break;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3641
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3642 case WM_VSCROLL:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3643 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3644 struct scroll_bar *bar =
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3645 x_window_to_scroll_bar ((HWND)msg.msg.lParam);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3646
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3647 if (bar && numchars >= 1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3648 {
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3649 if (x_scroll_bar_handle_click (bar, &msg, bufp))
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3650 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3651 bufp++;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3652 count++;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3653 numchars--;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3654 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3655 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3656 break;
13434
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
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3659 case WM_WINDOWPOSCHANGED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3660 case WM_ACTIVATE:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3661 case WM_ACTIVATEAPP:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3662 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3663 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3664
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3665 case WM_MOVE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3666 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3667
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3668 if (f && !f->async_iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3669 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3670 int x, y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3671
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3672 x_real_positions (f, &x, &y);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3673 f->output_data.w32->left_pos = x;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3674 f->output_data.w32->top_pos = y;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3675 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3676
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3677 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3678 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3679
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3680 case WM_SHOWWINDOW:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3681 /* 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
3682 being maximised or minimised/restored, then recheck
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3683 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
3684 windows get handled by WM_SIZE. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3685 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3686 if (msg.msg.lParam != 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3687 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3688 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3689 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3690 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
3691 f->async_visible = msg.msg.wParam;
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 #endif
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3694
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3695 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3696 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3697
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3698 case WM_SIZE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3699 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3700
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3701 /* 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
3702 if (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3703 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3704 switch (msg.msg.wParam)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3705 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3706 case SIZE_MINIMIZED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3707 f->async_visible = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3708 f->async_iconified = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3709
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3710 bufp->kind = iconify_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3711 XSETFRAME (bufp->frame_or_window, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3712 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3713 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3714 numchars--;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3715 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3716
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3717 case SIZE_MAXIMIZED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3718 case SIZE_RESTORED:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3719 f->async_visible = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3720 f->async_iconified = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3721
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3722 /* wait_reading_process_input will notice this and update
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3723 the frame's display structures. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3724 SET_FRAME_GARBAGED (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3725
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3726 if (f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3727 {
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3728 int x, y;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3729
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3730 /* 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
3731 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
3732 BEFORE telling us the Window is minimized
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3733 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
3734 as the co-ords. */
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3735 x_real_positions (f, &x, &y);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3736 f->output_data.w32->left_pos = x;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3737 f->output_data.w32->top_pos = y;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3738
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3739 bufp->kind = deiconify_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3740 XSETFRAME (bufp->frame_or_window, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3741 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3742 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3743 numchars--;
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 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3746 /* Force a redisplay sooner or later
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3747 to update the frame titles
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3748 in case this is the second frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3749 record_asynch_buffer_change ();
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3750 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3751 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3752 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3753
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3754 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
3755 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3756 RECT rect;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3757 int rows;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3758 int columns;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3759 int width;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3760 int height;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3761
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3762 GetClientRect(msg.msg.hwnd, &rect);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3763
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3764 height = rect.bottom - rect.top;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3765 width = rect.right - rect.left;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3766
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3767 rows = PIXEL_TO_CHAR_HEIGHT (f, height);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3768 columns = PIXEL_TO_CHAR_WIDTH (f, width);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3769
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3770 /* TODO: Clip size to the screen dimensions. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3771
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3772 /* 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
3773 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
3774 to check the pixel dimensions as well. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3775
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3776 if (columns != f->width
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3777 || rows != f->height
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3778 || width != f->output_data.w32->pixel_width
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3779 || height != f->output_data.w32->pixel_height)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3780 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3781 /* I had set this to 0, 0 - I am not sure why?? */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3782
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3783 change_frame_size (f, rows, columns, 0, 1);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3784 SET_FRAME_GARBAGED (f);
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
3785 cancel_mouse_face (f);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3786 f->output_data.w32->pixel_width = width;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3787 f->output_data.w32->pixel_height = height;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3788 f->output_data.w32->win_gravity = NorthWestGravity;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3789 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3790 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3791
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3792 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3793 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3794
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3795 case WM_SETFOCUS:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3796 case WM_KILLFOCUS:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3797 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3798
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3799 if (msg.msg.message == WM_SETFOCUS)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3800 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3801 x_new_focus_frame (dpyinfo, f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3802 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3803 else if (f == dpyinfo->w32_focus_frame)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3804 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3805 x_new_focus_frame (dpyinfo, 0);
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
3806
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
3807 if (f == dpyinfo->mouse_face_mouse_frame)
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
3808 clear_mouse_face (dpyinfo);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3809 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3810
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
3811 dpyinfo->grabbed = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3812 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3813 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3814
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3815 case WM_CLOSE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3816 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3817
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3818 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3819 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3820 if (numchars == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3821 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3822
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3823 bufp->kind = delete_window_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3824 XSETFRAME (bufp->frame_or_window, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3825 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3826 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3827 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3828 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3829 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3830
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3831 case WM_INITMENU:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3832 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3833
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3834 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3835 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3836 if (numchars == 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3837 abort ();
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3838
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3839 bufp->kind = menu_bar_activate_event;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3840 XSETFRAME (bufp->frame_or_window, f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3841 bufp++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3842 count++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3843 numchars--;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3844 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3845 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3846
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3847 case WM_COMMAND:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3848 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
3849
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3850 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3851 {
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3852 extern void menubar_selection_callback
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
3853 (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
3854 menubar_selection_callback (f, (void *)msg.msg.wParam);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3855 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3856
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3857 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3858 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3859
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3860 case WM_DISPLAYCHANGE:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3861 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
3862
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3863 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3864 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3865 dpyinfo->width = (short) LOWORD (msg.msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3866 dpyinfo->height = (short) HIWORD (msg.msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3867 dpyinfo->n_cbits = msg.msg.wParam;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3868 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
3869 dpyinfo->height));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3870 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3871
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3872 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3873 break;
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3874
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3875 default:
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3876 /* Check for messages registered at runtime. */
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3877 if (msg.msg.message == msh_mousewheel)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3878 {
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3879 if (dpyinfo->grabbed && last_mouse_frame
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3880 && FRAME_LIVE_P (last_mouse_frame))
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3881 f = last_mouse_frame;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3882 else
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3883 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3884
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3885 if (f)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3886 {
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3887 if ((!dpyinfo->w32_focus_frame
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3888 || f == dpyinfo->w32_focus_frame)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3889 && (numchars >= 1))
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3890 {
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3891 construct_mouse_wheel (bufp, &msg, f);
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3892 bufp++;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3893 count++;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3894 numchars--;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3895 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3896 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3897 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
3898 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3899 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3900 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3901
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3902 /* If the focus was just given to an autoraising frame,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3903 raise it now. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3904 /* ??? This ought to be able to handle more than one such frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3905 if (pending_autoraise_frame)
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 x_raise_frame (pending_autoraise_frame);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3908 pending_autoraise_frame = 0;
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
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3911 /* 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
3912 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
3913 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
3914 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
3915 changed (at least, not in all cases). */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3916 if (count > 0 || check_visibility)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3917 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3918 Lisp_Object tail, frame;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3919
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3920 FOR_EACH_FRAME (tail, frame)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3921 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3922 FRAME_PTR f = XFRAME (frame);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3923 /* Check "visible" frames and mark each as obscured or not.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3924 Note that async_visible is nonzero for unobscured and
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3925 obscured frames, but zero for hidden and iconified frames. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3926 if (FRAME_W32_P (f) && f->async_visible)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3927 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3928 RECT clipbox;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3929 HDC hdc = get_frame_dc (f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3930 GetClipBox (hdc, &clipbox);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3931 release_frame_dc (f, hdc);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3932
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3933 if (clipbox.right == clipbox.left
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3934 || clipbox.bottom == clipbox.top)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3935 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3936 /* Frame has become completely obscured so mark as
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3937 such (we do this by setting async_visible to 2 so
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3938 that FRAME_VISIBLE_P is still true, but redisplay
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3939 will skip it). */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3940 f->async_visible = 2;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3941
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3942 if (!FRAME_OBSCURED_P (f))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3943 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3944 DebPrint (("frame %04x (%s) obscured\n", f,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3945 XSTRING (f->name)->data));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3946 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3947 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3948 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3949 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3950 /* Frame is not obscured, so mark it as such. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3951 f->async_visible = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3952
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3953 if (FRAME_OBSCURED_P (f))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3954 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3955 SET_FRAME_GARBAGED (f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3956 DebPrint (("frame %04x (%s) reexposed\n", f,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3957 XSTRING (f->name)->data));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3958
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3959 /* Force a redisplay sooner or later. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3960 record_asynch_buffer_change ();
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3961 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3962 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3963 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3964 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3965 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3966
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3967 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3968 return count;
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 /* Drawing the cursor. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3972
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 /* Draw a hollow box cursor. Don't change the inside of the box. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3975
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3976 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3977 x_draw_box (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3978 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3979 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3980 RECT rect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3981 HBRUSH hb;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3982 HDC hdc;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3983
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3984 hdc = get_frame_dc (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3985
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3986 hb = CreateSolidBrush (f->output_data.w32->cursor_pixel);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3987
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3988 rect.left = CHAR_TO_PIXEL_COL (f, curs_x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3989 rect.top = CHAR_TO_PIXEL_ROW (f, curs_y);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3990 rect.right = rect.left + FONT_WIDTH (f->output_data.w32->font);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3991 rect.bottom = rect.top + f->output_data.w32->line_height;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3992
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3993 FrameRect (hdc, &rect, hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3994 DeleteObject (hb);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3995
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3996 release_frame_dc (f, hdc);
13434
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3999 /* Clear the cursor of frame F to background color,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4000 and mark the cursor as not shown.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4001 This is used when the text where the cursor is
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4002 is about to be rewritten. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4003
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4004 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4005 clear_cursor (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4006 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4007 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4008 if (! FRAME_VISIBLE_P (f)
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4009 || !f->phys_cursor_on)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4010 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4011
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4012 x_display_cursor (f, 0);
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4013 f->phys_cursor_on = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4014 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4015
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4016 /* Redraw the glyph at ROW, COLUMN on frame F, in the style
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4017 HIGHLIGHT. HIGHLIGHT is as defined for dumpglyphs. Return the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4018 glyph drawn. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4019
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4020 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4021 x_draw_single_glyph (f, row, column, glyph, highlight)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4022 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4023 int row, column;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4024 GLYPH glyph;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4025 int highlight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4026 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4027 dumpglyphs (f,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4028 CHAR_TO_PIXEL_COL (f, column),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4029 CHAR_TO_PIXEL_ROW (f, row),
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4030 &glyph, 1, highlight, 0, NULL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4031 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4032
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4033 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4034 x_display_bar_cursor (f, on)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4035 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4036 int on;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4037 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4038 struct frame_glyphs *current_glyphs = FRAME_CURRENT_GLYPHS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4039
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4040 /* This is pointless on invisible frames, and dangerous on garbaged
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4041 frames; in the latter case, the frame may be in the midst of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4042 changing its size, and curs_x and curs_y may be off the frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4043 if (! FRAME_VISIBLE_P (f) || FRAME_GARBAGED_P (f))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4044 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4045
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4046 if (! on && ! f->phys_cursor_on)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4047 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4048
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4049 /* If there is anything wrong with the current cursor state, remove it. */
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4050 if (f->phys_cursor_on
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4051 && (!on
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4052 || f->phys_cursor_x != curs_x
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4053 || f->phys_cursor_y != curs_y
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4054 || f->output_data.w32->current_cursor != bar_cursor))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4055 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4056 /* Erase the cursor by redrawing the character underneath it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4057 x_draw_single_glyph (f, f->phys_cursor_y, f->phys_cursor_x,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4058 f->phys_cursor_glyph,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4059 current_glyphs->highlight[f->phys_cursor_y]);
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4060 f->phys_cursor_on = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4061 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4062
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4063 /* If we now need a cursor in the new place or in the new form, do it so. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4064 if (on
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4065 && (! f->phys_cursor_on
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4066 || (f->output_data.w32->current_cursor != bar_cursor)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4067 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4068 f->phys_cursor_glyph
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4069 = ((current_glyphs->enable[curs_y]
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4070 && curs_x < current_glyphs->used[curs_y])
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4071 ? current_glyphs->glyphs[curs_y][curs_x]
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4072 : SPACEGLYPH);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4073 w32_fill_area (f, NULL, f->output_data.w32->cursor_pixel,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4074 CHAR_TO_PIXEL_COL (f, curs_x),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4075 CHAR_TO_PIXEL_ROW (f, curs_y),
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4076 max (f->output_data.w32->cursor_width, 1),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4077 f->output_data.w32->line_height);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4078
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4079 f->phys_cursor_x = curs_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4080 f->phys_cursor_y = curs_y;
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4081 f->phys_cursor_on = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4082
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4083 f->output_data.w32->current_cursor = bar_cursor;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4084 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4085 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4086
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4087
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4088 /* Turn the displayed cursor of frame F on or off according to ON.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4089 If ON is nonzero, where to put the cursor is specified
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4090 by F->cursor_x and F->cursor_y. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4091
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4092 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4093 x_display_box_cursor (f, on)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4094 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4095 int on;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4096 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4097 struct frame_glyphs *current_glyphs = FRAME_CURRENT_GLYPHS (f);
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 /* This is pointless on invisible frames, and dangerous on garbaged
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4100 frames; in the latter case, the frame may be in the midst of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4101 changing its size, and curs_x and curs_y may be off the frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4102 if (! FRAME_VISIBLE_P (f) || FRAME_GARBAGED_P (f))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4103 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4104
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4105 /* If cursor is off and we want it off, return quickly. */
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4106 if (!on && ! f->phys_cursor_on)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4107 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4108
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4109 /* If cursor is currently being shown and we don't want it to be
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4110 or it is in the wrong place,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4111 or we want a hollow box and it's not so, (pout!)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4112 erase it. */
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4113 if (f->phys_cursor_on
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4114 && (!on
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4115 || f->phys_cursor_x != curs_x
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4116 || f->phys_cursor_y != curs_y
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4117 || (f->output_data.w32->current_cursor != hollow_box_cursor
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4118 && (f != FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame))))
13434
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 int mouse_face_here = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4121 struct frame_glyphs *active_glyphs = FRAME_CURRENT_GLYPHS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4122
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4123 /* If the cursor is in the mouse face area, redisplay that when
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4124 we clear the cursor. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4125 if (f == FRAME_W32_DISPLAY_INFO (f)->mouse_face_mouse_frame
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4126 && (f->phys_cursor_y > FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4127 || (f->phys_cursor_y == FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_row
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4128 && f->phys_cursor_x >= FRAME_W32_DISPLAY_INFO (f)->mouse_face_beg_col))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4129 && (f->phys_cursor_y < FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4130 || (f->phys_cursor_y == FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_row
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4131 && f->phys_cursor_x < FRAME_W32_DISPLAY_INFO (f)->mouse_face_end_col))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4132 /* Don't redraw the cursor's spot in mouse face
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4133 if it is at the end of a line (on a newline).
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4134 The cursor appears there, but mouse highlighting does not. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4135 && active_glyphs->used[f->phys_cursor_y] > f->phys_cursor_x)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4136 mouse_face_here = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4137
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4138 /* If the font is not as tall as a whole line,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4139 we must explicitly clear the line's whole height. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4140 if (FONT_HEIGHT (f->output_data.w32->font) != f->output_data.w32->line_height)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4141 w32_clear_area (f, NULL,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4142 CHAR_TO_PIXEL_COL (f, f->phys_cursor_x),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4143 CHAR_TO_PIXEL_ROW (f, f->phys_cursor_y),
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4144 FONT_WIDTH (f->output_data.w32->font),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4145 f->output_data.w32->line_height);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4146 /* Erase the cursor by redrawing the character underneath it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4147 x_draw_single_glyph (f, f->phys_cursor_y, f->phys_cursor_x,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4148 f->phys_cursor_glyph,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4149 (mouse_face_here
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4150 ? 3
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4151 : current_glyphs->highlight[f->phys_cursor_y]));
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4152 f->phys_cursor_on = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4153 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4154
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4155 /* If we want to show a cursor,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4156 or we want a box cursor and it's not so,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4157 write it in the right place. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4158 if (on
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4159 && (! f->phys_cursor_on
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4160 || (f->output_data.w32->current_cursor != filled_box_cursor
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4161 && f == FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4162 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4163 f->phys_cursor_glyph
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4164 = ((current_glyphs->enable[curs_y]
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4165 && curs_x < current_glyphs->used[curs_y])
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4166 ? current_glyphs->glyphs[curs_y][curs_x]
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4167 : SPACEGLYPH);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4168 if (f != FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4169 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4170 x_draw_box (f);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4171 f->output_data.w32->current_cursor = hollow_box_cursor;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4172 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4173 else
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 x_draw_single_glyph (f, curs_y, curs_x,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4176 f->phys_cursor_glyph, 2);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4177 f->output_data.w32->current_cursor = filled_box_cursor;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4178 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4179
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4180 f->phys_cursor_x = curs_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4181 f->phys_cursor_y = curs_y;
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4182 f->phys_cursor_on = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4183 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4184 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4185
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4186 /* Display the cursor on frame F, or clear it, according to ON.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4187 Use the position specified by curs_x and curs_y
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4188 if we are doing an update of frame F now.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4189 Otherwise use the position in the FRAME_CURSOR_X and FRAME_CURSOR_Y fields
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4190 of F. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4191
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4192 x_display_cursor (f, on)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4193 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4194 int on;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4195 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4196 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4197
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4198 /* If we're not updating, then we want to use the current frame's
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4199 cursor position, not our local idea of where the cursor ought to be. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4200 if (f != updating_frame)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4201 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4202 curs_x = FRAME_CURSOR_X (f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4203 curs_y = FRAME_CURSOR_Y (f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4204 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4205
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4206 if (FRAME_DESIRED_CURSOR (f) == filled_box_cursor)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4207 x_display_box_cursor (f, on);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4208 else if (FRAME_DESIRED_CURSOR (f) == bar_cursor)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4209 x_display_bar_cursor (f, on);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4210 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4211 /* Those are the only two we have implemented! */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4212 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4213
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4214 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4215 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4216
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4217 /* Changing the font of the frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4218
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4219 /* Give frame F the font named FONTNAME as its default font, and
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4220 return the full name of that font. FONTNAME may be a wildcard
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4221 pattern; in that case, we choose some font that fits the pattern.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4222 The return value shows which font we chose. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4223
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4224 Lisp_Object
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4225 x_new_font (f, fontname)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4226 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4227 register char *fontname;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4228 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4229 struct font_info *fontp
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4230 = fs_load_font (f, FRAME_W32_FONT_TABLE (f), CHARSET_ASCII,
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4231 fontname, -1);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4232
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4233 if (!fontp)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4234 return Qnil;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4235
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4236 FRAME_FONT (f) = (XFontStruct *) (fontp->font);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4237 f->output_data.w32->font_baseline
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
4238 = FONT_BASE (FRAME_FONT (f)) + fontp->baseline_offset;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4239 FRAME_FONTSET (f) = -1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4240
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4241 /* Compute the scroll bar width in character columns. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4242 if (f->scroll_bar_pixel_width > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4243 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4244 int wid = FONT_WIDTH (f->output_data.w32->font);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4245 f->scroll_bar_cols = (f->scroll_bar_pixel_width + wid-1) / wid;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4246 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4247 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4248 f->scroll_bar_cols = 2;
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 /* 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
4251 if (FRAME_W32_WINDOW (f) != 0)
13434
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 frame_update_line_height (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4254 x_set_window_size (f, 0, f->width, f->height);
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 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4257 /* If we are setting a new frame's font for the first time,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4258 there are no faces yet, so this font's height is the line height. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4259 f->output_data.w32->line_height = FONT_HEIGHT (f->output_data.w32->font);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4260
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4261 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4262 Lisp_Object lispy_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4263
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4264 lispy_name = build_string (fontname);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4265
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4266 return lispy_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4267 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4268 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4269
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4270 /* Give frame F the fontset named FONTSETNAME as its default font, and
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4271 return the full name of that fontset. FONTSETNAME may be a wildcard
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4272 pattern; in that case, we choose some fontset that fits the pattern.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4273 The return value shows which fontset we chose. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4274
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4275 Lisp_Object
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4276 x_new_fontset (f, fontsetname)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4277 struct frame *f;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4278 char *fontsetname;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4279 {
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4280 int fontset = fs_query_fontset (f, fontsetname);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4281 struct fontset_info *fontsetp;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4282 Lisp_Object result;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4283
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4284 if (fontset < 0)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4285 return Qnil;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4286
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4287 if (FRAME_FONTSET (f) == fontset)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4288 /* 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
4289 to do. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4290 return build_string (fontsetname);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4291
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4292 fontsetp = FRAME_FONTSET_DATA (f)->fontset_table[fontset];
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4293
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4294 if (!fontsetp->fontname[CHARSET_ASCII])
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4295 /* This fontset doesn't contain ASCII font. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4296 return Qnil;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4297
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4298 result = x_new_font (f, fontsetp->fontname[CHARSET_ASCII]);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4299
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4300 if (!STRINGP (result))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4301 /* Can't load ASCII font. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4302 return Qnil;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4303
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4304 /* 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
4305 FRAME_FONTSET(f) = fontset;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4306 FS_LOAD_FONT (f, FRAME_W32_FONT_TABLE (f),
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4307 CHARSET_ASCII, XSTRING (result)->data, fontset);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4308
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4309 return build_string (fontsetname);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4310 }
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4311
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4312 /* Calculate the absolute position in frame F
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4313 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
4314
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4315 x_calc_absolute_position (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4316 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4317 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4318 Window win, child;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4319 POINT pt;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4320 int flags = f->output_data.w32->size_hint_flags;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4321
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4322 pt.x = pt.y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4323
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4324 /* Find the position of the outside upper-left corner of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4325 the inner window, with respect to the outer window. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4326 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
4327 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4328 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4329 MapWindowPoints (FRAME_W32_WINDOW (f),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4330 f->output_data.w32->parent_desc,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4331 &pt, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4332 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4333 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4334
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4335 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4336 RECT rt;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4337 rt.left = rt.right = rt.top = rt.bottom = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4338
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4339 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4340 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
4341 FRAME_EXTERNAL_MENU_BAR (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4342 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4343
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4344 pt.x += (rt.right - rt.left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4345 pt.y += (rt.bottom - rt.top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4346 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4347
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4348 /* Treat negative positions as relative to the leftmost bottommost
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4349 position that fits on the screen. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4350 if (flags & XNegative)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4351 f->output_data.w32->left_pos = (FRAME_W32_DISPLAY_INFO (f)->width
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4352 - 2 * f->output_data.w32->border_width - pt.x
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4353 - PIXEL_WIDTH (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4354 + f->output_data.w32->left_pos);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4355
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4356 if (flags & YNegative)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4357 f->output_data.w32->top_pos = (FRAME_W32_DISPLAY_INFO (f)->height
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4358 - 2 * f->output_data.w32->border_width - pt.y
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4359 - PIXEL_HEIGHT (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4360 + f->output_data.w32->top_pos);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4361 /* The left_pos and top_pos
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4362 are now relative to the top and left screen edges,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4363 so the flags should correspond. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4364 f->output_data.w32->size_hint_flags &= ~ (XNegative | YNegative);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4365 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4366
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4367 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4368 to really change the position, and 0 when calling from
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4369 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
4370 position values). It is -1 when calling from x_set_frame_parameters,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4371 which means, do adjust for borders but don't change the gravity. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4372
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4373 x_set_offset (f, xoff, yoff, change_gravity)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4374 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4375 register int xoff, yoff;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4376 int change_gravity;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4377 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4378 int modified_top, modified_left;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4379
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4380 if (change_gravity > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4381 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4382 f->output_data.w32->top_pos = yoff;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4383 f->output_data.w32->left_pos = xoff;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4384 f->output_data.w32->size_hint_flags &= ~ (XNegative | YNegative);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4385 if (xoff < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4386 f->output_data.w32->size_hint_flags |= XNegative;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4387 if (yoff < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4388 f->output_data.w32->size_hint_flags |= YNegative;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4389 f->output_data.w32->win_gravity = NorthWestGravity;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4390 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4391 x_calc_absolute_position (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4392
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4393 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4394 x_wm_set_size_hint (f, (long) 0, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4395
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4396 /* It is a mystery why we need to add the border_width here
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4397 when the frame is already visible, but experiment says we do. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4398 modified_left = f->output_data.w32->left_pos;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4399 modified_top = f->output_data.w32->top_pos;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4400 #ifndef HAVE_NTGUI
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4401 /* Do not add in border widths under W32. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4402 if (change_gravity != 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4403 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4404 modified_left += f->output_data.w32->border_width;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4405 modified_top += f->output_data.w32->border_width;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4406 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4407 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4408
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4409 my_set_window_pos (FRAME_W32_WINDOW (f),
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4410 NULL,
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4411 modified_left, modified_top,
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
4412 0, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4413 SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4414 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4415 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4416
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4417 /* Call this to change the size of frame F's x-window.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4418 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
4419 for this size change and subsequent size changes.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4420 Otherwise we leave the window gravity unchanged. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4421
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4422 x_set_window_size (f, change_gravity, cols, rows)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4423 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4424 int change_gravity;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4425 int cols, rows;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4426 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4427 int pixelwidth, pixelheight;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4428 struct w32_display_info *dpyinfo = &one_w32_display_info;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4429
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4430 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4431
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4432 check_frame_size (f, &rows, &cols);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4433 f->output_data.w32->vertical_scroll_bar_extra
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4434 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4435 ? 0
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4436 : FRAME_SCROLL_BAR_PIXEL_WIDTH (f) > 0
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4437 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4438 : (FRAME_SCROLL_BAR_COLS (f) * FONT_WIDTH (f->output_data.w32->font)));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4439 pixelwidth = CHAR_TO_PIXEL_WIDTH (f, cols);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4440 pixelheight = CHAR_TO_PIXEL_HEIGHT (f, rows);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4441
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4442 f->output_data.w32->win_gravity = NorthWestGravity;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4443 x_wm_set_size_hint (f, (long) 0, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4444
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4445 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4446 RECT rect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4447
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4448 rect.left = rect.top = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4449 rect.right = pixelwidth;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4450 rect.bottom = pixelheight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4451
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4452 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
4453 FRAME_EXTERNAL_MENU_BAR (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4454
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4455 my_set_window_pos (FRAME_W32_WINDOW (f),
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4456 NULL,
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4457 0, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4458 rect.right - rect.left,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4459 rect.bottom - rect.top,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4460 SWP_NOZORDER | SWP_NOMOVE | SWP_NOACTIVATE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4461 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4462
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4463 /* Now, strictly speaking, we can't be sure that this is accurate,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4464 but the window manager will get around to dealing with the size
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4465 change request eventually, and we'll hear how it went when the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4466 ConfigureNotify event gets here.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4467
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4468 We could just not bother storing any of this information here,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4469 and let the ConfigureNotify event set everything up, but that
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4470 might be kind of confusing to the lisp code, since size changes
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4471 wouldn't be reported in the frame parameters until some random
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4472 point in the future when the ConfigureNotify event arrives. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4473 change_frame_size (f, rows, cols, 0, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4474 PIXEL_WIDTH (f) = pixelwidth;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4475 PIXEL_HEIGHT (f) = pixelheight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4476
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4477 /* 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
4478 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
4479 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
4480 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
4481 SET_FRAME_GARBAGED (f);
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 /* If cursor was outside the new size, mark it as off. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4484 if (f->phys_cursor_y >= rows
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4485 || f->phys_cursor_x >= cols)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4486 {
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4487 f->phys_cursor_x = 0;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4488 f->phys_cursor_y = 0;
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
4489 f->phys_cursor_on = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4490 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4491
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4492 /* Clear out any recollection of where the mouse highlighting was,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4493 since it might be in a place that's outside the new frame size.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4494 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
4495 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
4496 cancel_mouse_face (f);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4497
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4498 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4499 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4500
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4501 /* Mouse warping. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4502
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4503 void
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4504 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
4505 struct frame *f;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4506 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
4507 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4508 RECT rect;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4509 POINT pt;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4510
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4511 BLOCK_INPUT;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4512
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4513 GetClientRect (FRAME_W32_WINDOW (f), &rect);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4514 pt.x = rect.left + pix_x;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4515 pt.y = rect.top + pix_y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4516 ClientToScreen (FRAME_W32_WINDOW (f), &pt);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4517
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4518 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
4519
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4520 UNBLOCK_INPUT;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4521 }
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4522
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4523 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4524 x_set_mouse_position (f, x, y)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4525 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4526 int x, y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4527 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4528 int pix_x, pix_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4529
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4530 pix_x = CHAR_TO_PIXEL_COL (f, x) + FONT_WIDTH (f->output_data.w32->font) / 2;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4531 pix_y = CHAR_TO_PIXEL_ROW (f, y) + f->output_data.w32->line_height / 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4532
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4533 if (pix_x < 0) pix_x = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4534 if (pix_x > PIXEL_WIDTH (f)) pix_x = PIXEL_WIDTH (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4535
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4536 if (pix_y < 0) pix_y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4537 if (pix_y > PIXEL_HEIGHT (f)) pix_y = PIXEL_HEIGHT (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4538
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
4539 x_set_mouse_pixel_position (f, pix_x, pix_y);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4540 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4541
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4542 /* focus shifting, raising and lowering. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4543
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4544 x_focus_on_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4545 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4546 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4547 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
4548
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4549 /* Give input focus to frame. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4550 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4551 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4552 /* 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
4553 if (x_window_to_frame (dpyinfo, GetForegroundWindow ()))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4554 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
4555 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4556 #endif
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4557 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
4558 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4559 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4560
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4561 x_unfocus_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4562 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4563 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4564 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4565
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4566 /* Raise frame F. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4567
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4568 x_raise_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4569 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4570 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4571 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4572
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4573 /* 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
4574 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
4575 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
4576 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
4577 click-to-focus.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4578
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4579 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
4580 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
4581 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
4582 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
4583 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
4584 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
4585 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
4586 completely obscured) with input focus.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4587
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4588 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
4589 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
4590 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
4591
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4592 if (NILP (Vw32_grab_focus_on_raise))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4593 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4594 /* 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
4595 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
4596 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
4597 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
4598 more cumbersome method. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4599
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4600 HDWP handle = BeginDeferWindowPos (2);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4601 if (handle)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4602 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4603 DeferWindowPos (handle,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4604 FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4605 HWND_TOP,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4606 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4607 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4608
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4609 DeferWindowPos (handle,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4610 GetForegroundWindow (),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4611 FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4612 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4613 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4614
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4615 EndDeferWindowPos (handle);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4616 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4617 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4618 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4619 {
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4620 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
4621 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4622
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4623 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4624 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4625
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4626 /* Lower frame F. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4627
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4628 x_lower_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4629 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4630 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4631 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4632 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
4633 HWND_BOTTOM,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4634 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4635 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4636 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4637 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4638
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4639 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4640 w32_frame_raise_lower (f, raise)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4641 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4642 int raise;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4643 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4644 if (raise)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4645 x_raise_frame (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4646 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4647 x_lower_frame (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4648 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4649
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4650 /* Change of visibility. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4651
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4652 /* This tries to wait until the frame is really visible.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4653 However, if the window manager asks the user where to position
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4654 the frame, this will return before the user finishes doing that.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4655 The frame will not actually be visible at that time,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4656 but it will become visible later when the window manager
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4657 finishes with it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4658
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4659 x_make_frame_visible (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4660 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4661 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4662 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4663
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4664 if (! FRAME_VISIBLE_P (f))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4665 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4666 /* We test FRAME_GARBAGED_P here to make sure we don't
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4667 call x_set_offset a second time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4668 if we get to x_make_frame_visible a second time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4669 before the window gets really visible. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4670 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
4671 && ! f->output_data.w32->asked_for_visible)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4672 x_set_offset (f, f->output_data.w32->left_pos, f->output_data.w32->top_pos, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4673
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4674 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
4675
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4676 // my_show_window (f, FRAME_W32_WINDOW (f), f->async_iconified ? SW_RESTORE : SW_SHOW);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4677 my_show_window (f, FRAME_W32_WINDOW (f), SW_SHOWNORMAL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4678 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4679
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4680 /* Synchronize to ensure Emacs knows the frame is visible
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4681 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
4682 so that incoming events are handled. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4683 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4684 Lisp_Object frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4685 int count = input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4686
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4687 /* This must come after we set COUNT. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4688 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4689
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4690 XSETFRAME (frame, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4691
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4692 while (1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4693 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4694 /* Once we have handled input events,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4695 we should have received the MapNotify if one is coming.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4696 So if we have not got it yet, stop looping.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4697 Some window managers make their own decisions
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4698 about visibility. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4699 if (input_signal_count != count)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4700 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4701 /* Machines that do polling rather than SIGIO have been observed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4702 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
4703 to let the handler know that there's something to be read.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4704 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
4705 isn't always enabled here. This is probably a bug. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4706 if (input_polling_used ())
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4707 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4708 /* It could be confusing if a real alarm arrives while processing
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4709 the fake one. Turn it off and let the handler reset it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4710 alarm (0);
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
4711 input_poll_signal (0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4712 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4713 /* Once we have handled input events,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4714 we should have received the MapNotify if one is coming.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4715 So if we have not got it yet, stop looping.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4716 Some window managers make their own decisions
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4717 about visibility. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4718 if (input_signal_count != count)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4719 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4720 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4721 FRAME_SAMPLE_VISIBILITY (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4722 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4723 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4724
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4725 /* Change from mapped state to withdrawn state. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4726
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4727 /* Make the frame visible (mapped and not iconified). */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4728
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4729 x_make_frame_invisible (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4730 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4731 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4732 Window window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4733
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4734 /* Don't keep the highlight on an invisible frame. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4735 if (FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame == f)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4736 FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4737
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4738 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4739
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4740 my_show_window (f, FRAME_W32_WINDOW (f), SW_HIDE);
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 /* We can't distinguish this from iconification
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4743 just by the event that we get from the server.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4744 So we can't win using the usual strategy of letting
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4745 FRAME_SAMPLE_VISIBILITY set this. So do it by hand,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4746 and synchronize with the server to make sure we agree. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4747 f->visible = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4748 FRAME_ICONIFIED_P (f) = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4749 f->async_visible = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4750 f->async_iconified = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4751
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4752 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4753 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4754
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4755 /* Change window state from mapped to iconified. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4756
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4757 void
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4758 x_iconify_frame (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4759 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4760 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4761 int result;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4762
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4763 /* Don't keep the highlight on an invisible frame. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4764 if (FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame == f)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4765 FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4766
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4767 if (f->async_iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4768 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4769
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4770 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4771
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4772 /* 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
4773 SendMessage (FRAME_W32_WINDOW (f), WM_SYSCOMMAND, SC_MINIMIZE, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4774
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4775 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4776 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4777
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4778 /* Destroy the window of frame F. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4779
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4780 x_destroy_window (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4781 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4782 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4783 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4784
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4785 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4786
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4787 my_destroy_window (f, FRAME_W32_WINDOW (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4788 free_frame_menubar (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4789 free_frame_faces (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4790
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4791 xfree (f->output_data.w32);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4792 f->output_data.w32 = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4793 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
4794 dpyinfo->w32_focus_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4795 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
4796 dpyinfo->w32_focus_event_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4797 if (f == dpyinfo->w32_highlight_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4798 dpyinfo->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4799
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4800 dpyinfo->reference_count--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4801
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4802 if (f == dpyinfo->mouse_face_mouse_frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4803 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4804 dpyinfo->mouse_face_beg_row
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4805 = dpyinfo->mouse_face_beg_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4806 dpyinfo->mouse_face_end_row
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4807 = dpyinfo->mouse_face_end_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4808 dpyinfo->mouse_face_window = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4809 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4810
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4811 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4812 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4813
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4814 /* Setting window manager hints. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4815
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4816 /* Set the normal size hints for the window manager, for frame F.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4817 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
4818 that the window now has.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4819 If USER_POSITION is nonzero, we set the USPosition
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4820 flag (this is useful when FLAGS is 0). */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4821
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4822 x_wm_set_size_hint (f, flags, user_position)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4823 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4824 long flags;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4825 int user_position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4826 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4827 Window window = FRAME_W32_WINDOW (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4828
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4829 flexlines = f->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4830
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
4831 enter_crit ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4832
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4833 SetWindowLong (window, WND_FONTWIDTH_INDEX, FONT_WIDTH (f->output_data.w32->font));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4834 SetWindowLong (window, WND_LINEHEIGHT_INDEX, f->output_data.w32->line_height);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4835 SetWindowLong (window, WND_BORDER_INDEX, f->output_data.w32->internal_border_width);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4836 SetWindowLong (window, WND_SCROLLBAR_INDEX, f->output_data.w32->vertical_scroll_bar_extra);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4837
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
4838 leave_crit ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4839 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4840
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4841 /* Window manager things */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4842 x_wm_set_icon_position (f, icon_x, icon_y)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4843 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4844 int icon_x, icon_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4845 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4846 #if 0
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4847 Window window = FRAME_W32_WINDOW (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4848
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4849 f->display.x->wm_hints.flags |= IconPositionHint;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4850 f->display.x->wm_hints.icon_x = icon_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4851 f->display.x->wm_hints.icon_y = icon_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4852
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4853 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->display.x->wm_hints);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4854 #endif
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4855 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4856
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4857
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4858 /* Initialization. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4859
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4860 #ifdef USE_X_TOOLKIT
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4861 static XrmOptionDescRec emacs_options[] = {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4862 {"-geometry", ".geometry", XrmoptionSepArg, NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4863 {"-iconic", ".iconic", XrmoptionNoArg, (XtPointer) "yes"},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4864
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4865 {"-internal-border-width", "*EmacsScreen.internalBorderWidth",
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4866 XrmoptionSepArg, NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4867 {"-ib", "*EmacsScreen.internalBorderWidth", XrmoptionSepArg, NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4868
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4869 {"-T", "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4870 {"-wn", "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4871 {"-title", "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4872 {"-iconname", "*EmacsShell.iconName", XrmoptionSepArg, (XtPointer) NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4873 {"-in", "*EmacsShell.iconName", XrmoptionSepArg, (XtPointer) NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4874 {"-mc", "*pointerColor", XrmoptionSepArg, (XtPointer) NULL},
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4875 {"-cr", "*cursorColor", XrmoptionSepArg, (XtPointer) NULL}
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4876 };
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4877 #endif /* USE_X_TOOLKIT */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4878
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4879 static int w32_initialized = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4880
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4881 struct w32_display_info *
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4882 w32_term_init (display_name, xrm_option, resource_name)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4883 Lisp_Object display_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4884 char *xrm_option;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4885 char *resource_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4886 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4887 Lisp_Object frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4888 char *defaultvalue;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4889 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4890 HDC hdc;
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
4891
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4892 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4893
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4894 if (!w32_initialized)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4895 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4896 w32_initialize ();
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4897 w32_initialized = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4898 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4899
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4900 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4901 int argc = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4902 char *argv[3];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4903
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4904 argv[0] = "";
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4905 argc = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4906 if (xrm_option)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4907 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4908 argv[argc++] = "-xrm";
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4909 argv[argc++] = xrm_option;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4910 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4911 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4912
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4913 dpyinfo = &one_w32_display_info;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4914
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4915 /* Put this display on the chain. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4916 dpyinfo->next = NULL;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4917
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4918 /* Put it on w32_display_name_list as well, to keep them parallel. */
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4919 w32_display_name_list = Fcons (Fcons (display_name, Qnil),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4920 w32_display_name_list);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4921 dpyinfo->name_list_element = XCONS (w32_display_name_list)->car;
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
4922
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4923 dpyinfo->w32_id_name
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4924 = (char *) xmalloc (XSTRING (Vinvocation_name)->size
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4925 + XSTRING (Vsystem_name)->size
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4926 + 2);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4927 sprintf (dpyinfo->w32_id_name, "%s@%s",
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4928 XSTRING (Vinvocation_name)->data, XSTRING (Vsystem_name)->data);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4929
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4930 #if 0
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4931 xrdb = x_load_resources (dpyinfo->display, xrm_option,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4932 resource_name, EMACS_CLASS);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4933
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4934 /* Put the rdb where we can find it in a way that works on
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4935 all versions. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4936 dpyinfo->xrdb = xrdb;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4937 #endif
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4938 hdc = GetDC (GetDesktopWindow ());
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4939
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4940 dpyinfo->height = GetDeviceCaps (hdc, VERTRES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4941 dpyinfo->width = GetDeviceCaps (hdc, HORZRES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4942 dpyinfo->root_window = GetDesktopWindow ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4943 dpyinfo->n_planes = GetDeviceCaps (hdc, PLANES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4944 dpyinfo->n_cbits = GetDeviceCaps (hdc, BITSPIXEL);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4945 dpyinfo->height_in = GetDeviceCaps (hdc, LOGPIXELSX);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4946 dpyinfo->width_in = GetDeviceCaps (hdc, LOGPIXELSY);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4947 dpyinfo->has_palette = GetDeviceCaps (hdc, RASTERCAPS) & RC_PALETTE;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4948 dpyinfo->grabbed = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4949 dpyinfo->reference_count = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4950 dpyinfo->n_fonts = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4951 dpyinfo->font_table_size = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4952 dpyinfo->bitmaps = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4953 dpyinfo->bitmaps_size = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4954 dpyinfo->bitmaps_last = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4955 dpyinfo->mouse_face_mouse_frame = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4956 dpyinfo->mouse_face_deferred_gc = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4957 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4958 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4959 dpyinfo->mouse_face_face_id = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4960 dpyinfo->mouse_face_window = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4961 dpyinfo->mouse_face_mouse_x = dpyinfo->mouse_face_mouse_y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4962 dpyinfo->mouse_face_defer = 0;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4963 dpyinfo->w32_focus_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4964 dpyinfo->w32_focus_event_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4965 dpyinfo->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4966
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4967 ReleaseDC (GetDesktopWindow (), hdc);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4968
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4969 /* Determine if there is a middle mouse button, to allow parse_button
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4970 to decide whether right mouse events should be mouse-2 or
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4971 mouse-3. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4972 XSETINT (Vw32_num_mouse_buttons, GetSystemMetrics (SM_CMOUSEBUTTONS));
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4973
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4974 /* initialise palette with white and black */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4975 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4976 COLORREF color;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4977 defined_color (0, "white", &color, 1);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4978 defined_color (0, "black", &color, 1);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4979 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4980
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4981 #ifndef F_SETOWN_BUG
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4982 #ifdef F_SETOWN
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4983 #ifdef F_SETOWN_SOCK_NEG
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4984 /* stdin is a socket here */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4985 fcntl (connection, F_SETOWN, -getpid ());
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4986 #else /* ! defined (F_SETOWN_SOCK_NEG) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4987 fcntl (connection, F_SETOWN, getpid ());
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4988 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4989 #endif /* ! defined (F_SETOWN) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4990 #endif /* F_SETOWN_BUG */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4991
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4992 #ifdef SIGIO
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4993 if (interrupt_input)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4994 init_sigio (connection);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4995 #endif /* ! defined (SIGIO) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4996
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4997 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4998
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4999 return dpyinfo;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5000 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5001
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5002 /* Get rid of display DPYINFO, assuming all frames are already gone. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5003
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5004 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5005 x_delete_display (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5006 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5007 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5008 /* 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
5009 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
5010 if (! NILP (w32_display_name_list)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5011 && EQ (XCONS (w32_display_name_list)->car, dpyinfo->name_list_element))
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5012 w32_display_name_list = XCONS (w32_display_name_list)->cdr;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5013 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5014 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5015 Lisp_Object tail;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5016
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5017 tail = w32_display_name_list;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5018 while (CONSP (tail) && CONSP (XCONS (tail)->cdr))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5019 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5020 if (EQ (XCONS (XCONS (tail)->cdr)->car,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5021 dpyinfo->name_list_element))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5022 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5023 XCONS (tail)->cdr = XCONS (XCONS (tail)->cdr)->cdr;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5024 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5025 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5026 tail = XCONS (tail)->cdr;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5027 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5028 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5029
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5030 /* free palette table */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5031 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5032 struct w32_palette_entry * plist;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5033
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5034 plist = dpyinfo->color_list;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5035 while (plist)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5036 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5037 struct w32_palette_entry * pentry = plist;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5038 plist = plist->next;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5039 xfree(pentry);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5040 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5041 dpyinfo->color_list = NULL;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5042 if (dpyinfo->palette)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5043 DeleteObject(dpyinfo->palette);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5044 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5045 xfree (dpyinfo->font_table);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5046 xfree (dpyinfo->w32_id_name);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5047 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5048
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5049 /* Set up use of W32. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5050
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5051 DWORD w32_msg_worker ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5052
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5053 w32_initialize ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5054 {
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5055 /* 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
5056 so we must explicitly cast them. */
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5057 clear_frame_hook = (void (*)(void)) w32_clear_frame;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5058 clear_end_of_line_hook = w32_clear_end_of_line;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5059 ins_del_lines_hook = w32_ins_del_lines;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5060 change_line_highlight_hook = w32_change_line_highlight;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5061 insert_glyphs_hook = w32_insert_glyphs;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5062 write_glyphs_hook = w32_write_glyphs;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5063 delete_glyphs_hook = w32_delete_glyphs;
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5064 ring_bell_hook = (void (*)(void)) w32_ring_bell;
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5065 reset_terminal_modes_hook = (void (*)(void)) w32_reset_terminal_modes;
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5066 set_terminal_modes_hook = (void (*)(void)) w32_set_terminal_modes;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5067 update_begin_hook = w32_update_begin;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5068 update_end_hook = w32_update_end;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5069 set_terminal_window_hook = w32_set_terminal_window;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5070 read_socket_hook = w32_read_socket;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5071 frame_up_to_date_hook = w32_frame_up_to_date;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5072 cursor_to_hook = w32_cursor_to;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5073 reassert_line_highlight_hook = w32_reassert_line_highlight;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5074 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
5075 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
5076 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
5077 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
5078 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
5079 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
5080 judge_scroll_bars_hook = w32_judge_scroll_bars;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5081
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5082 scroll_region_ok = 1; /* we'll scroll partial frames */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5083 char_ins_del_ok = 0; /* just as fast to write the line */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5084 line_ins_del_ok = 1; /* we'll just blt 'em */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5085 fast_clear_end_of_line = 1; /* X does this well */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5086 memory_below_frame = 0; /* we don't remember what scrolls
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5087 off the bottom */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5088 baud_rate = 19200;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5089
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5090 /* 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
5091 8 bit character input, standard quit char. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5092 Fset_input_mode (Qnil, Qnil, make_number (2), Qnil);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5093
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5094 /* 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
5095
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5096 init_crit ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5097
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5098 dwMainThreadId = GetCurrentThreadId ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5099 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5100 GetCurrentProcess (), &hMainThread, 0, TRUE, DUPLICATE_SAME_ACCESS);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5101
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5102 /* Wait for thread to start */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5103
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5104 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5105 MSG msg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5106
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5107 PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5108
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
5109 hWindowsThread = CreateThread (NULL, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5110 (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
5111 0, 0, &dwWindowsThreadId);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5112
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5113 GetMessage (&msg, NULL, WM_EMACS_DONE, WM_EMACS_DONE);
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
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5116 /* 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
5117 focus window and active window as windowsThread. Unfortunately, the
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5118 following call to AttachThreadInput, which should do precisely what
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5119 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
5120 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
5121 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
5122 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
5123 window state. */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5124 #ifdef ATTACH_THREADS
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
5125 AttachThreadInput (dwMainThreadId, dwWindowsThreadId, TRUE);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5126 #endif
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5127
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5128 /* Dynamically link to optional system components. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5129 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5130 HANDLE user_lib = LoadLibrary ("user32.dll");
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5131
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5132 #define LOAD_PROC(fn) pfn##fn = (void *) GetProcAddress (user_lib, #fn)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5133
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5134 /* New proportional scroll bar functions. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5135 LOAD_PROC( SetScrollInfo );
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5136 LOAD_PROC( GetScrollInfo );
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5137
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5138 #undef LOAD_PROC
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5139
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5140 FreeLibrary (user_lib);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5141
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5142 /* 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
5143 otherwise use the fixed height. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5144 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
5145 GetSystemMetrics (SM_CYVTHUMB);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5146
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5147 /* 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
5148 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
5149 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
5150 = GetSystemMetrics (SM_CYVSCROLL);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5151 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5152 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5153
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5154 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5155 syms_of_w32term ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5156 {
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5157 Lisp_Object codepage;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5158
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5159 staticpro (&w32_display_name_list);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5160 w32_display_name_list = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5161
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5162 staticpro (&last_mouse_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5163 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5164
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5165 staticpro (&Qvendor_specific_keysyms);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5166 Qvendor_specific_keysyms = intern ("vendor-specific-keysyms");
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5167
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5168 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
5169 &Vw32_num_mouse_buttons,
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5170 "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
5171 Vw32_num_mouse_buttons = Qnil;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5172
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5173 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
5174 &Vw32_swap_mouse_buttons,
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5175 "Swap the mapping of middle and right mouse buttons.\n\
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5176 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
5177 Vw32_swap_mouse_buttons = Qnil;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5178
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5179 DEFVAR_LISP ("w32-grab-focus-on-raise",
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5180 &Vw32_grab_focus_on_raise,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5181 "Raised frame grabs input focus.\n\
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5182 When t, `raise-frame' grabs input focus as well. This fits well\n\
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5183 with the normal Windows click-to-focus policy, but might not be\n\
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5184 desirable when using a point-to-focus policy.");
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5185 Vw32_grab_focus_on_raise = Qt;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5186
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5187 DEFVAR_LISP ("w32-capslock-is-shiftlock",
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5188 &Vw32_capslock_is_shiftlock,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5189 "Apply CapsLock state to non character input keys.\n\
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5190 When nil, CapsLock only affects normal character input keys.");
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5191 Vw32_capslock_is_shiftlock = Qnil;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5192
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5193 DEFVAR_LISP ("w32-recognize-altgr",
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5194 &Vw32_recognize_altgr,
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5195 "Recognize right-alt and left-ctrl as AltGr.\n\
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5196 When nil, the right-alt and left-ctrl key combination is\n\
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5197 interpreted normally.");
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5198 Vw32_recognize_altgr = Qt;
23638
e6fb9ffee4f4 (dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23510
diff changeset
5199
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
5200 DEFVAR_BOOL ("w32-enable-unicode-output",
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
5201 &w32_enable_unicode_output,
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
5202 "Enable the use of Unicode for text output if non-nil.\n\
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5203 Unicode output may prevent some third party applications for displaying\n\
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5204 Far-East Languages on Windows 95/98 from working properly.\n\
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5205 NT uses Unicode internally anyway, so this flag will probably have no\n\
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5206 affect on NT machines.");
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
5207 w32_enable_unicode_output = 1;
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5208
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5209 DEFVAR_LISP ("w32-charset-to-codepage-alist",
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5210 &Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5211 "Alist linking character sets to Windows Codepages.");
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5212 Vw32_charset_to_codepage_alist = Qnil;
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5213 /* Initialise the alist with some defaults. */
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5214 XSETFASTINT (codepage, 936);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5215 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5216 build_string ("gb2312"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5217 XSETFASTINT (codepage, 950);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5218 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5219 build_string ("big5"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5220 XSETFASTINT (codepage, 949);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5221 store_in_alist (&Vw32_charset_to_codepage_alist,
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
5222 build_string ("ksc5601.1987"), codepage);
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
5223 XSETFASTINT (codepage, 1361);
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5224 store_in_alist (&Vw32_charset_to_codepage_alist,
24146
9ed2245a9b79 (W32_TEXTOUT): New macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24131
diff changeset
5225 build_string ("ksc5601.1992"), codepage);
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5226 XSETFASTINT (codepage, 932);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5227 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5228 build_string ("jisx0208-sjis"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5229 XSETFASTINT (codepage, 874);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5230 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5231 build_string ("tis620"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5232 XSETFASTINT (codepage, 20866);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5233 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5234 build_string ("koi8-r"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5235 /* iso8859-13 is not yet officially adopted, but it is conveniently
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5236 covered by CP 1257. */
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5237 XSETFASTINT (codepage, 1257);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5238 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5239 build_string ("iso8859-13"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5240 XSETFASTINT (codepage, 1254);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5241 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5242 build_string ("iso8859-9"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5243 XSETFASTINT (codepage, 1255);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5244 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5245 build_string ("iso8859-8"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5246 XSETFASTINT (codepage, 28597);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5247 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5248 build_string ("iso8859-7"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5249 XSETFASTINT (codepage, 28596);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5250 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5251 build_string ("iso8859-6"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5252 XSETFASTINT (codepage, 28595);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5253 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5254 build_string ("iso8859-5"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5255 XSETFASTINT (codepage, 28594);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5256 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5257 build_string ("iso8859-4"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5258 XSETFASTINT (codepage, 28593);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5259 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5260 build_string ("iso8859-3"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5261 XSETFASTINT (codepage, 28592);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5262 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5263 build_string ("iso8859-2"), codepage);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5264 XSETFASTINT (codepage, 1252);
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5265 store_in_alist (&Vw32_charset_to_codepage_alist,
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
5266 build_string ("iso8859-1"), codepage);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5267 }