Mercurial > emacs
annotate src/w32term.h @ 50596:201ff32466bc
* term/mac-win.el: Unconditionally set process-connection-type to nil.
author | Andrew Choi <akochoi@shaw.ca> |
---|---|
date | Tue, 15 Apr 2003 01:29:42 +0000 |
parents | b8a179bd89b1 |
children | e53316f7017e |
rev | line source |
---|---|
16886
c686d4f3728a
Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
1 /* Definitions and headers for communication on the Microsoft W32 API. |
36254
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
2 Copyright (C) 1995, 2001 Free Software Foundation, Inc. |
13543 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13543
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13543
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
13543 | 20 |
21 /* Added by Kevin Gallo */ | |
22 | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
23 #include "w32gui.h" |
13543 | 24 |
25 | |
14984
e8a969370f33
(BLACK_PIX_DEFAULT, WHITE_PIX_DEFAULT): Use PALETTERGB instead of RGB.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14809
diff
changeset
|
26 #define BLACK_PIX_DEFAULT(f) PALETTERGB(0,0,0) |
e8a969370f33
(BLACK_PIX_DEFAULT, WHITE_PIX_DEFAULT): Use PALETTERGB instead of RGB.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14809
diff
changeset
|
27 #define WHITE_PIX_DEFAULT(f) PALETTERGB(255,255,255) |
13543 | 28 |
24145
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
29 #define FONT_WIDTH(f) \ |
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
30 ((f)->bdf ? (f)->bdf->width : (f)->tm.tmAveCharWidth) |
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
31 #define FONT_HEIGHT(f) \ |
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
32 ((f)->bdf ? (f)->bdf->height : (f)->tm.tmHeight) |
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
33 #define FONT_BASE(f) \ |
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
34 ((f)->bdf ? (f)->bdf->ury : (f)->tm.tmAscent) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
35 #define FONT_DESCENT(f) \ |
33036
9fa317523a69
(FONT_DESCENT): Negate descent for BDF fonts
Jason Rumney <jasonr@gnu.org>
parents:
32723
diff
changeset
|
36 ((f)->bdf ? -((f)->bdf->lly) : (f)->tm.tmDescent) |
24145
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
37 #define FONT_MAX_WIDTH(f) \ |
95d0947c83b2
(FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents:
23807
diff
changeset
|
38 ((f)->bdf ? (f)->bdf->width : (f)->tm.tmMaxCharWidth) |
13543 | 39 |
29309 | 40 #define CP_DEFAULT 1004 |
33453 | 41 /* Special pseudo-codepages. */ |
33388
ba5202c8e467
(CP_8BIT, CP_UNICODE, CP_INVALID): New pseudo-codepages.
Jason Rumney <jasonr@gnu.org>
parents:
33036
diff
changeset
|
42 #define CP_8BIT -1 |
ba5202c8e467
(CP_8BIT, CP_UNICODE, CP_INVALID): New pseudo-codepages.
Jason Rumney <jasonr@gnu.org>
parents:
33036
diff
changeset
|
43 #define CP_UNICODE -2 |
34282
ef13c60c3087
(CP_INVALID): Rename to CP_UNKNOWN.
Andrew Innes <andrewi@gnu.org>
parents:
34134
diff
changeset
|
44 #define CP_UNKNOWN -3 |
29309 | 45 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
46 #define CHECK_W32_FRAME(f, frame) \ |
13543 | 47 if (NILP (frame)) \ |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
48 f = SELECTED_FRAME (); \ |
13543 | 49 else \ |
50 { \ | |
51 CHECK_LIVE_FRAME (frame, 0); \ | |
52 f = XFRAME (frame); \ | |
53 } \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
54 if (! FRAME_W32_P (f)) |
13543 | 55 |
56 /* Indicates whether we are in the readsocket call and the message we | |
57 are processing in the current loop */ | |
58 | |
59 extern MSG CurMsg; | |
60 extern BOOL bUseDflt; | |
61 | |
62 extern struct frame *x_window_to_frame (); | |
63 | |
64 /* Structure recording bitmaps and reference count. | |
65 If REFCOUNT is 0 then this record is free to be reused. */ | |
66 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
67 struct w32_bitmap_record |
13543 | 68 { |
69 Pixmap pixmap; | |
70 char *file; | |
71 HINSTANCE hinst; /* Used to load the file */ | |
72 int refcount; | |
73 /* Record some info about this pixmap. */ | |
74 int height, width, depth; | |
75 }; | |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
76 |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
77 /* Palette book-keeping stuff for mapping requested colors into the |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
78 system palette. Keep a ref-counted list of requested colors and |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
79 regenerate the app palette whenever the requested list changes. */ |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
80 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
81 extern Lisp_Object Vw32_enable_palette; |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
82 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
83 struct w32_palette_entry { |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
84 struct w32_palette_entry * next; |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
85 PALETTEENTRY entry; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
86 #if 0 |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
87 unsigned refcount; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
88 #endif |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
89 }; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
90 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
91 extern void w32_regenerate_palette(struct frame *f); |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
92 |
13543 | 93 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
94 /* For each display (currently only one on w32), we have a structure that |
13543 | 95 records information about it. */ |
96 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
97 struct w32_display_info |
13543 | 98 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
99 /* Chain of all w32_display_info structures. */ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
100 struct w32_display_info *next; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
101 |
13543 | 102 /* This is a cons cell of the form (NAME . FONT-LIST-CACHE). |
103 The same cons cell also appears in x_display_name_list. */ | |
104 Lisp_Object name_list_element; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
105 |
13543 | 106 /* Number of frames that are on this display. */ |
107 int reference_count; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
108 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
109 /* Dots per inch of the screen. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
110 double resx, resy; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
111 |
13543 | 112 /* Number of planes on this screen. */ |
113 int n_planes; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
114 |
13543 | 115 /* Number of bits per pixel on this screen. */ |
116 int n_cbits; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
117 |
13543 | 118 /* Dimensions of this screen. */ |
119 int height, width; | |
120 int height_in,width_in; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
121 |
13543 | 122 /* Mask of things that cause the mouse to be grabbed. */ |
123 int grabbed; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
124 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
125 /* Emacs bitmap-id of the default icon bitmap for this frame. |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
126 Or -1 if none has been allocated yet. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
127 int icon_bitmap_id; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
128 |
13543 | 129 /* The root window of this screen. */ |
130 Window root_window; | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
131 |
13543 | 132 /* The cursor to use for vertical scroll bars. */ |
133 Cursor vertical_scroll_bar_cursor; | |
134 | |
50037
bb427a9406c3
(struct w32_display_info): Add xrdb member to support passing resources via -xrm
Juanma Barranquero <lekktu@gmail.com>
parents:
49600
diff
changeset
|
135 /* Resource data base */ |
50366
b8a179bd89b1
(EMACS_CLASS): Remove. Use generic define.
Kim F. Storm <storm@cua.dk>
parents:
50232
diff
changeset
|
136 XrmDatabase xrdb; |
50037
bb427a9406c3
(struct w32_display_info): Add xrdb member to support passing resources via -xrm
Juanma Barranquero <lekktu@gmail.com>
parents:
49600
diff
changeset
|
137 |
23676
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
138 /* color palette information. */ |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
139 int has_palette; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
140 struct w32_palette_entry * color_list; |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
141 unsigned num_colors; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
142 HPALETTE palette; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
143 |
23676
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
144 /* deferred action flags checked when starting frame update. */ |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
145 int regen_palette; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
146 |
23676
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
147 /* Keystroke that has been faked by Emacs and will be ignored when |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
148 received; value is reset after key is received. */ |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
149 int faked_key; |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
150 |
13543 | 151 /* A table of all the fonts we have already loaded. */ |
152 struct font_info *font_table; | |
153 | |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
154 /* The current capacity of font_table. */ |
13543 | 155 int font_table_size; |
156 | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
157 /* Minimum width over all characters in all fonts in font_table. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
158 int smallest_char_width; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
159 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
160 /* Minimum font height over all fonts in font_table. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
161 int smallest_font_height; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
162 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
163 /* Reusable Graphics Context for drawing a cursor in a non-default face. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
164 XGCValues *scratch_cursor_gc; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
165 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
166 /* These variables describe the range of text currently shown in its |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
167 mouse-face, together with the window they apply to. As long as |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
168 the mouse stays within this range, we need not redraw anything on |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
169 its account. Rows and columns are glyph matrix positions in |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
170 MOUSE_FACE_WINDOW. */ |
13543 | 171 int mouse_face_beg_row, mouse_face_beg_col; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
172 int mouse_face_beg_x, mouse_face_beg_y; |
13543 | 173 int mouse_face_end_row, mouse_face_end_col; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
174 int mouse_face_end_x, mouse_face_end_y; |
13543 | 175 int mouse_face_past_end; |
176 Lisp_Object mouse_face_window; | |
177 int mouse_face_face_id; | |
40150
eed2220c99a5
(struct w32_output): Use correct spelling of x_compatible.
Jason Rumney <jasonr@gnu.org>
parents:
38569
diff
changeset
|
178 Lisp_Object mouse_face_overlay; |
13543 | 179 |
180 /* 1 if a mouse motion event came and we didn't handle it right away because | |
181 gc was in progress. */ | |
182 int mouse_face_deferred_gc; | |
183 | |
184 /* FRAME and X, Y position of mouse when last checked for | |
185 highlighting. X and Y can be negative or out of range for the frame. */ | |
186 struct frame *mouse_face_mouse_frame; | |
187 int mouse_face_mouse_x, mouse_face_mouse_y; | |
188 | |
189 /* Nonzero means defer mouse-motion highlighting. */ | |
190 int mouse_face_defer; | |
191 | |
43372
e1a8a3f02251
(struct w32_display_info): Add mouse_face_hidden.
Kim F. Storm <storm@cua.dk>
parents:
42863
diff
changeset
|
192 /* Nonzero means that the mouse highlight should not be shown. */ |
e1a8a3f02251
(struct w32_display_info): Add mouse_face_hidden.
Kim F. Storm <storm@cua.dk>
parents:
42863
diff
changeset
|
193 int mouse_face_hidden; |
e1a8a3f02251
(struct w32_display_info): Add mouse_face_hidden.
Kim F. Storm <storm@cua.dk>
parents:
42863
diff
changeset
|
194 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
195 int mouse_face_image_state; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
196 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
197 char *w32_id_name; |
13543 | 198 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
199 /* The number of fonts actually stored in w32_font_table. |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
200 font_table[n] is used and valid iff 0 <= n < n_fonts. 0 <= |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
201 n_fonts <= font_table_size. and font_table[i].name != 0. */ |
13543 | 202 int n_fonts; |
203 | |
204 /* Pointer to bitmap records. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
205 struct w32_bitmap_record *bitmaps; |
13543 | 206 |
207 /* Allocated size of bitmaps field. */ | |
208 int bitmaps_size; | |
209 | |
210 /* Last used bitmap index. */ | |
211 int bitmaps_last; | |
212 | |
213 /* The frame (if any) which has the window that has keyboard focus. | |
214 Zero if none. This is examined by Ffocus_frame in w32fns.c. Note | |
215 that a mere EnterNotify event can set this; if you need to know the | |
216 last frame specified in a FocusIn or FocusOut event, use | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
217 w32_focus_event_frame. */ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
218 struct frame *w32_focus_frame; |
13543 | 219 |
220 /* The last frame mentioned in a FocusIn or FocusOut event. This is | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
221 separate from w32_focus_frame, because whether or not LeaveNotify |
13543 | 222 events cause us to lose focus depends on whether or not we have |
223 received a FocusIn event for it. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
224 struct frame *w32_focus_event_frame; |
13543 | 225 |
226 /* The frame which currently has the visual highlight, and should get | |
227 keyboard input (other sorts of input have the frame encoded in the | |
228 event). It points to the focus frame's selected window's | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
229 frame. It differs from w32_focus_frame when we're using a global |
13543 | 230 minibuffer. */ |
47149
facc9fbc1777
(struct w32_display_info) <x_highlight_frame>: Renamed from
Kim F. Storm <storm@cua.dk>
parents:
47141
diff
changeset
|
231 struct frame *x_highlight_frame; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
232 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
233 /* Cache of images. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
234 struct image_cache *image_cache; |
13543 | 235 }; |
236 | |
237 /* This is a chain of structures for all the displays currently in use. */ | |
38569
dbf5f78bc403
(x_display_list): New extern.
Andrew Innes <andrewi@gnu.org>
parents:
37698
diff
changeset
|
238 extern struct w32_display_info *x_display_list; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
239 extern struct w32_display_info one_w32_display_info; |
13543 | 240 |
241 /* 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:
15152
diff
changeset
|
242 one for each element of w32_display_list and in the same order. |
13543 | 243 NAME is the name of the frame. |
244 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:
15152
diff
changeset
|
245 extern Lisp_Object w32_display_name_list; |
13543 | 246 |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
247 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */ |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
248 extern Lisp_Object Vx_pixel_size_width_font_regexp; |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
249 |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
250 /* A flag to control how to display unibyte 8-bit character. */ |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
251 extern int unibyte_display_via_language_environment; |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
252 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
253 struct w32_display_info *x_display_info_for_name (); |
13543 | 254 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
255 extern struct w32_display_info *w32_term_init (); |
13543 | 256 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
257 extern Lisp_Object w32_list_fonts P_ ((struct frame *, Lisp_Object, int, int)); |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
258 extern struct font_info *w32_get_font_info (), *w32_query_font (); |
32723
58dcefea99de
Extern decl for w32_cache_char_metrics.
Andrew Innes <andrewi@gnu.org>
parents:
30987
diff
changeset
|
259 extern void w32_cache_char_metrics (XFontStruct *font); |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
260 extern void w32_find_ccl_program(); |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
261 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
262 #define PIX_TYPE COLORREF |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
263 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
264 /* Each W32 frame object points to its own struct w32_display object |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
265 in the output_data.w32 field. The w32_display structure contains all |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
266 the information that is specific to W32 windows. */ |
13543 | 267 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
268 /* Put some things in x_output for compatibility. |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
269 NTEMACS_TODO: Move all common things here to eliminate unneccesary |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
270 diffs between X and w32 code. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
271 struct x_output |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
272 { |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
273 PIX_TYPE background_pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
274 PIX_TYPE foreground_pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
275 }; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
276 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
277 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
278 struct w32_output |
13543 | 279 { |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
280 /* Placeholder for things accessed through output_data.x. */ |
40150
eed2220c99a5
(struct w32_output): Use correct spelling of x_compatible.
Jason Rumney <jasonr@gnu.org>
parents:
38569
diff
changeset
|
281 struct x_output x_compatible; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
282 |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
283 /* Menubar "widget" handle. */ |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
284 HMENU menubar_widget; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
285 |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
286 /* Original palette (used to deselect real palette after drawing) */ |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
287 HPALETTE old_palette; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
288 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
289 /* Position of the W32 window (x and y offsets in root window). */ |
13543 | 290 int left_pos; |
291 int top_pos; | |
292 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
293 /* Border width of the W32 window as known by the window system. */ |
13543 | 294 int border_width; |
295 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
296 /* Size of the W32 window in pixels. */ |
13543 | 297 int pixel_height, pixel_width; |
298 | |
299 /* Height of a line, in pixels. */ | |
300 int line_height; | |
301 | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
302 /* Here are the Graphics Contexts for the default font. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
303 XGCValues *cursor_gc; /* cursor drawing */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
304 |
13543 | 305 /* Width of the internal border. This is a line of background color |
306 just inside the window's border. When the frame is selected, | |
307 a highlighting is displayed inside the internal border. */ | |
308 int internal_border_width; | |
309 | |
310 /* The window used for this frame. | |
311 May be zero while the frame object is being created | |
312 and the window has not yet been created. */ | |
313 Window window_desc; | |
314 | |
315 /* The window that is the parent of this window. | |
316 Usually this is a window that was made by the window manager, | |
317 but it can be the root window, and it can be explicitly specified | |
318 (see the explicit_parent field, below). */ | |
319 Window parent_desc; | |
320 | |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
321 /* Default ASCII font of this frame. */ |
13543 | 322 XFontStruct *font; |
323 | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
324 /* The baseline offset of the default ASCII font. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
325 int baseline_offset; |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
326 |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
327 /* If a fontset is specified for this frame instead of font, this |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
328 value contains an ID of the fontset, else -1. */ |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
329 int fontset; |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
330 |
13543 | 331 /* Pixel values used for various purposes. |
332 border_pixel may be -1 meaning use a gray tile. */ | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
333 COLORREF cursor_pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
334 COLORREF border_pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
335 COLORREF mouse_pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
336 COLORREF cursor_foreground_pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
337 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
338 /* Foreground color for scroll bars. A value of -1 means use the |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
339 default (black for non-toolkit scroll bars). */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
340 COLORREF scroll_bar_foreground_pixel; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
341 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
342 /* Background color for scroll bars. A value of -1 means use the |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
343 default (background color of the frame for non-toolkit scroll |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
344 bars). */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
345 COLORREF scroll_bar_background_pixel; |
13543 | 346 |
347 /* Descriptor for the cursor in use for this window. */ | |
348 Cursor text_cursor; | |
349 Cursor nontext_cursor; | |
350 Cursor modeline_cursor; | |
50232
fbdd920c1fa4
(struct w32_output): Remove cross_cursor member.
Kim F. Storm <storm@cua.dk>
parents:
50155
diff
changeset
|
351 Cursor hand_cursor; |
36254
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
352 Cursor hourglass_cursor; |
34134
296bbdedee11
(struct w32_output): Add member horizontal_drag_cursor.
Jason Rumney <jasonr@gnu.org>
parents:
33453
diff
changeset
|
353 Cursor horizontal_drag_cursor; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
354 |
36254
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
355 /* Window whose cursor is hourglass_cursor. This window is |
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
356 temporarily mapped to display an hourglass cursor. */ |
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
357 Window hourglass_window; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
358 |
36254
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
359 /* Non-zero means hourglass cursor is currently displayed. */ |
f64eaa8f61aa
(struct x_output): Rename busy_cursor to
Gerd Moellmann <gerd@gnu.org>
parents:
34282
diff
changeset
|
360 unsigned hourglass_p : 1; |
13543 | 361 |
362 /* Flag to set when the window needs to be completely repainted. */ | |
363 int needs_exposure; | |
364 | |
365 DWORD dwStyle; | |
366 | |
367 /* The size of the extra width currently allotted for vertical | |
368 scroll bars, in pixels. */ | |
369 int vertical_scroll_bar_extra; | |
370 | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
371 /* The extra width currently allotted for the areas in which |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
372 truncation marks, continuation marks, and overlay arrows are |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
373 displayed. */ |
41728
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
374 int left_fringe_width, right_fringe_width; |
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
375 int fringe_cols, fringes_extra; |
13543 | 376 |
377 /* This is the gravity value for the specified window position. */ | |
378 int win_gravity; | |
379 | |
380 /* The geometry flags for this window. */ | |
381 int size_hint_flags; | |
382 | |
383 /* This is the Emacs structure for the display this frame is on. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
384 /* struct w32_display_info *display_info; */ |
13543 | 385 |
386 /* Nonzero means our parent is another application's window | |
387 and was explicitly specified. */ | |
388 char explicit_parent; | |
389 | |
390 /* Nonzero means tried already to make this frame visible. */ | |
391 char asked_for_visible; | |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
392 |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
393 /* Nonzero means menubar is currently active. */ |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
394 char menubar_active; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
395 |
43469
1e76e5ebe710
(struct w32_output): New member menu_command_in_progress.
Jason Rumney <jasonr@gnu.org>
parents:
43395
diff
changeset
|
396 /* Nonzero means a menu command is being processed. */ |
1e76e5ebe710
(struct w32_output): New member menu_command_in_progress.
Jason Rumney <jasonr@gnu.org>
parents:
43395
diff
changeset
|
397 char menu_command_in_progress; |
1e76e5ebe710
(struct w32_output): New member menu_command_in_progress.
Jason Rumney <jasonr@gnu.org>
parents:
43395
diff
changeset
|
398 |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
399 /* Nonzero means menubar is about to become active, but should be |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
400 brought up to date first. */ |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
401 volatile char pending_menu_activation; |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
402 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
403 /* Relief GCs, colors etc. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
404 struct relief |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
405 { |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
406 XGCValues *gc; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
407 unsigned long pixel; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
408 int allocated_p; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
409 } |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
410 black_relief, white_relief; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
411 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
412 /* The background for which the above relief GCs were set up. |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
413 They are changed only when a different background is involved. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
414 unsigned long relief_background; |
43395
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
415 |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
416 /* See enum below */ |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
417 int want_fullscreen; |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
418 |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
419 /* This many pixels are the difference between the outer window (i.e. the |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
420 left of the window manager decoration) and FRAME_W32_WINDOW. */ |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
421 int x_pixels_diff; |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
422 |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
423 /* This many pixels are the difference between the outer window (i.e. the |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
424 top of the window manager titlebar) and FRAME_W32_WINDOW. */ |
5cae2fbac146
New enum for FULLSCREEN_* constants.
Jason Rumney <jasonr@gnu.org>
parents:
43372
diff
changeset
|
425 int y_pixels_diff; |
13543 | 426 }; |
427 | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
24916
diff
changeset
|
428 extern struct w32_output w32term_display; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
24916
diff
changeset
|
429 |
50155
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
430 /* Return the X output data for frame F. */ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
431 #define FRAME_X_OUTPUT(f) ((f)->output_data.w32) |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
432 |
13543 | 433 /* Return the window associated with the frame F. */ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
434 #define FRAME_W32_WINDOW(f) ((f)->output_data.w32->window_desc) |
50155
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
435 #define FRAME_X_WINDOW(f) ((f)->output_data.w32->window_desc) |
13543 | 436 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
437 #define FRAME_FOREGROUND_PIXEL(f) ((f)->output_data.x->foreground_pixel) |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
438 #define FRAME_BACKGROUND_PIXEL(f) ((f)->output_data.x->background_pixel) |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
439 #define FRAME_FONT(f) ((f)->output_data.w32->font) |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
440 #define FRAME_FONTSET(f) ((f)->output_data.w32->fontset) |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
441 #define FRAME_INTERNAL_BORDER_WIDTH(f) ((f)->output_data.w32->internal_border_width) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
442 #define FRAME_LINE_HEIGHT(f) ((f)->output_data.w32->line_height) |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
443 /* Width of the default font of frame F. Must be defined by each |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
444 terminal specific header. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
445 #define FRAME_DEFAULT_FONT_WIDTH(F) FONT_WIDTH (FRAME_FONT (F)) |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
446 #define FRAME_BASELINE_OFFSET(f) ((f)->output_data.w32->baseline_offset) |
13543 | 447 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
448 /* This gives the w32_display_info structure for the display F is on. */ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
449 #define FRAME_W32_DISPLAY_INFO(f) (&one_w32_display_info) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
450 #define FRAME_X_DISPLAY_INFO(f) (&one_w32_display_info) |
13543 | 451 |
50155
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
452 /* This is the `Display *' which frame F is on. */ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
453 #define FRAME_X_DISPLAY(f) (0) |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
454 |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
455 /* This is the 'font_info *' which frame F has. */ |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
456 #define FRAME_W32_FONT_TABLE(f) (FRAME_W32_DISPLAY_INFO (f)->font_table) |
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
457 |
13543 | 458 /* These two really ought to be called FRAME_PIXEL_{WIDTH,HEIGHT}. */ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
459 #define PIXEL_WIDTH(f) ((f)->output_data.w32->pixel_width) |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
460 #define PIXEL_HEIGHT(f) ((f)->output_data.w32->pixel_height) |
13543 | 461 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
462 /* Value is the smallest width of any character in any font on frame F. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
463 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
464 #define FRAME_SMALLEST_CHAR_WIDTH(F) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
465 FRAME_W32_DISPLAY_INFO(F)->smallest_char_width |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
466 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
467 /* Value is the smallest height of any font on frame F. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
468 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
469 #define FRAME_SMALLEST_FONT_HEIGHT(F) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
470 FRAME_W32_DISPLAY_INFO(F)->smallest_font_height |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
471 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
472 /* Return a pointer to the image cache of frame F. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
473 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
474 #define FRAME_X_IMAGE_CACHE(F) FRAME_W32_DISPLAY_INFO ((F))->image_cache |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
475 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
476 |
41133 | 477 /* Total width of fringes reserved for drawing truncation bitmaps, |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
478 continuation bitmaps and alike. The width is in canonical char |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
479 units of the frame. This must currently be the case because window |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
480 sizes aren't pixel values. If it weren't the case, we wouldn't be |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
481 able to split windows horizontally nicely. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
482 |
41728
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
483 #define FRAME_X_FRINGE_COLS(F) ((F)->output_data.w32->fringe_cols) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
484 |
41133 | 485 /* Total width of fringes in pixels. */ |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
486 |
41728
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
487 #define FRAME_X_FRINGE_WIDTH(F) ((F)->output_data.w32->fringes_extra) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
488 |
41728
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
489 /* Pixel-width of the left and right fringe. */ |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
490 |
41728
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
491 #define FRAME_X_LEFT_FRINGE_WIDTH(F) ((F)->output_data.w32->left_fringe_width) |
dbf6af4e5c4d
Merged fringe width related changes from xterm.h.
Kim F. Storm <storm@cua.dk>
parents:
41479
diff
changeset
|
492 #define FRAME_X_RIGHT_FRINGE_WIDTH(F) ((F)->output_data.w32->right_fringe_width) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
493 |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
494 |
13543 | 495 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
496 /* W32-specific scroll bar stuff. */ |
13543 | 497 |
498 /* We represent scroll bars as lisp vectors. This allows us to place | |
499 references to them in windows without worrying about whether we'll | |
500 end up with windows referring to dead scroll bars; the garbage | |
501 collector will free it when its time comes. | |
502 | |
503 We use struct scroll_bar as a template for accessing fields of the | |
504 vector. */ | |
505 | |
506 struct scroll_bar { | |
507 | |
508 /* These fields are shared by all vectors. */ | |
509 EMACS_INT size_from_Lisp_Vector_struct; | |
510 struct Lisp_Vector *next_from_Lisp_Vector_struct; | |
511 | |
512 /* The window we're a scroll bar for. */ | |
513 Lisp_Object window; | |
514 | |
515 /* The next and previous in the chain of scroll bars in this frame. */ | |
516 Lisp_Object next, prev; | |
517 | |
518 /* The window representing this scroll bar. Since this is a full | |
519 32-bit quantity, we store it split into two 32-bit values. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
520 Lisp_Object w32_window_low, w32_window_high; |
13543 | 521 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
522 /* Same as above for the widget. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
523 Lisp_Object w32_widget_low, w32_widget_high; |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
524 |
13543 | 525 /* The position and size of the scroll bar in pixels, relative to the |
526 frame. */ | |
527 Lisp_Object top, left, width, height; | |
528 | |
529 /* The starting and ending positions of the handle, relative to the | |
530 handle area (i.e. zero is the top position, not | |
531 SCROLL_BAR_TOP_BORDER). If they're equal, that means the handle | |
532 hasn't been drawn yet. | |
533 | |
534 These are not actually the locations where the beginning and end | |
535 are drawn; in order to keep handles from becoming invisible when | |
536 editing large files, we establish a minimum height by always | |
537 drawing handle bottoms VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below | |
538 where they would be normally; the bottom and top are in a | |
539 different co-ordinate system. */ | |
540 Lisp_Object start, end; | |
541 | |
542 /* If the scroll bar handle is currently being dragged by the user, | |
543 this is the number of pixels from the top of the handle to the | |
544 place where the user grabbed it. If the handle isn't currently | |
545 being dragged, this is Qnil. */ | |
546 Lisp_Object dragging; | |
547 }; | |
548 | |
549 /* The number of elements a vector holding a struct scroll_bar needs. */ | |
550 #define SCROLL_BAR_VEC_SIZE \ | |
551 ((sizeof (struct scroll_bar) \ | |
552 - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *)) \ | |
553 / sizeof (Lisp_Object)) | |
554 | |
555 /* Turning a lisp vector value into a pointer to a struct scroll_bar. */ | |
556 #define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec)) | |
557 | |
558 | |
559 /* Building a 32-bit C integer from two 16-bit lisp integers. */ | |
560 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low)) | |
561 | |
562 /* Setting two lisp integers to the low and high words of a 32-bit C int. */ | |
563 #define SCROLL_BAR_UNPACK(low, high, int32) \ | |
564 (XSETINT ((low), (int32) & 0xffff), \ | |
565 XSETINT ((high), ((int32) >> 16) & 0xffff)) | |
566 | |
567 | |
568 /* Extract the window id of the scroll bar from a struct scroll_bar. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
569 #define SCROLL_BAR_W32_WINDOW(ptr) \ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
570 ((Window) SCROLL_BAR_PACK ((ptr)->w32_window_low, (ptr)->w32_window_high)) |
13543 | 571 |
572 /* Store a window id in a struct scroll_bar. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
573 #define SET_SCROLL_BAR_W32_WINDOW(ptr, id) \ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
574 (SCROLL_BAR_UNPACK ((ptr)->w32_window_low, (ptr)->w32_window_high, (int) id)) |
13543 | 575 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
576 /* Extract the X widget of the scroll bar from a struct scroll_bar. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
577 #define SCROLL_BAR_X_WIDGET(ptr) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
578 ((Widget) SCROLL_BAR_PACK ((ptr)->x_widget_low, (ptr)->x_widget_high)) |
13543 | 579 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
580 /* Store a widget id in a struct scroll_bar. */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
581 #define SET_SCROLL_BAR_X_WIDGET(ptr, w) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
582 (SCROLL_BAR_UNPACK ((ptr)->x_widget_low, (ptr)->x_widget_high, (int) w)) |
13543 | 583 |
584 /* Return the inside width of a vertical scroll bar, given the outside | |
585 width. */ | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
586 #define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f,width) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
587 ((width) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
588 - VERTICAL_SCROLL_BAR_LEFT_BORDER \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
589 - VERTICAL_SCROLL_BAR_RIGHT_BORDER \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
590 - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2) |
13543 | 591 |
592 /* Return the length of the rectangle within which the top of the | |
593 handle must stay. This isn't equivalent to the inside height, | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
594 because the scroll bar handle has a minimum height. |
13543 | 595 |
596 This is the real range of motion for the scroll bar, so when we're | |
597 scaling buffer positions to scroll bar positions, we use this, not | |
598 VERTICAL_SCROLL_BAR_INSIDE_HEIGHT. */ | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
599 #define VERTICAL_SCROLL_BAR_TOP_RANGE(f,height) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
600 (VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, height) - VERTICAL_SCROLL_BAR_MIN_HANDLE) |
13543 | 601 |
602 /* Return the inside height of vertical scroll bar, given the outside | |
603 height. See VERTICAL_SCROLL_BAR_TOP_RANGE too. */ | |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
604 #define VERTICAL_SCROLL_BAR_INSIDE_HEIGHT(f,height) \ |
13543 | 605 ((height) - VERTICAL_SCROLL_BAR_TOP_BORDER - VERTICAL_SCROLL_BAR_BOTTOM_BORDER) |
606 | |
607 | |
608 /* Border widths for scroll bars. | |
609 | |
610 Scroll bar windows don't have any borders; their border width is | |
611 set to zero, and we redraw borders ourselves. This makes the code | |
612 a bit cleaner, since we don't have to convert between outside width | |
613 (used when relating to the rest of the screen) and inside width | |
614 (used when sizing and drawing the scroll bar window itself). | |
615 | |
616 The handle moves up and down/back and forth in a rectangle inset | |
617 from the edges of the scroll bar. These are widths by which we | |
618 inset the handle boundaries from the scroll bar edges. */ | |
619 #define VERTICAL_SCROLL_BAR_LEFT_BORDER (0) | |
620 #define VERTICAL_SCROLL_BAR_RIGHT_BORDER (0) | |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
621 #define VERTICAL_SCROLL_BAR_TOP_BORDER (vertical_scroll_bar_top_border) |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
622 #define VERTICAL_SCROLL_BAR_BOTTOM_BORDER (vertical_scroll_bar_bottom_border) |
13543 | 623 |
624 /* Minimum lengths for scroll bar handles, in pixels. */ | |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
625 #define VERTICAL_SCROLL_BAR_MIN_HANDLE (vertical_scroll_bar_min_handle) |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
626 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
627 /* Trimming off a few pixels from each side prevents |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
628 text from glomming up against the scroll bar */ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
629 #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0) |
13543 | 630 |
631 | |
632 /* Manipulating pixel sizes and character sizes. | |
633 Knowledge of which factors affect the overall size of the window should | |
634 be hidden in these macros, if that's possible. | |
635 | |
636 Return the upper/left pixel position of the character cell on frame F | |
637 at ROW/COL. */ | |
638 #define CHAR_TO_PIXEL_ROW(f, row) \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
639 ((f)->output_data.w32->internal_border_width \ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
640 + (row) * (f)->output_data.w32->line_height) |
13543 | 641 #define CHAR_TO_PIXEL_COL(f, col) \ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
642 ((f)->output_data.w32->internal_border_width \ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
643 + (col) * FONT_WIDTH ((f)->output_data.w32->font)) |
13543 | 644 |
645 /* Return the pixel width/height of frame F if it has | |
646 WIDTH columns/HEIGHT rows. */ | |
647 #define CHAR_TO_PIXEL_WIDTH(f, width) \ | |
648 (CHAR_TO_PIXEL_COL (f, width) \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
649 + (f)->output_data.w32->vertical_scroll_bar_extra \ |
41133 | 650 + (f)->output_data.w32->fringes_extra \ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
651 + (f)->output_data.w32->internal_border_width) |
13543 | 652 #define CHAR_TO_PIXEL_HEIGHT(f, height) \ |
653 (CHAR_TO_PIXEL_ROW (f, height) \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
654 + (f)->output_data.w32->internal_border_width) |
13543 | 655 |
656 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
657 /* Return the row/column (zero-based) of the character cell containing |
13543 | 658 the pixel on FRAME at ROW/COL. */ |
659 #define PIXEL_TO_CHAR_ROW(f, row) \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
660 (((row) - (f)->output_data.w32->internal_border_width) \ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
661 / (f)->output_data.w32->line_height) |
13543 | 662 #define PIXEL_TO_CHAR_COL(f, col) \ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
663 (((col) - (f)->output_data.w32->internal_border_width) \ |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
664 / FONT_WIDTH ((f)->output_data.w32->font)) |
13543 | 665 |
666 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on | |
667 frame F? */ | |
668 #define PIXEL_TO_CHAR_WIDTH(f, width) \ | |
669 (PIXEL_TO_CHAR_COL (f, ((width) \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
670 - (f)->output_data.w32->internal_border_width \ |
41133 | 671 - (f)->output_data.w32->fringes_extra \ |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
672 - (f)->output_data.w32->vertical_scroll_bar_extra))) |
13543 | 673 #define PIXEL_TO_CHAR_HEIGHT(f, height) \ |
674 (PIXEL_TO_CHAR_ROW (f, ((height) \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
675 - (f)->output_data.w32->internal_border_width))) |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
676 |
13543 | 677 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
678 extern void w32_fill_rect (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
679 extern void w32_clear_window (); |
13543 | 680 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
681 #define w32_fill_area(f,hdc,pix,x,y,nx,ny) \ |
13543 | 682 { \ |
683 RECT rect; \ | |
684 rect.left = x; \ | |
685 rect.top = y; \ | |
686 rect.right = x + nx; \ | |
687 rect.bottom = y + ny; \ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
688 w32_fill_rect (f,hdc,pix,&rect); \ |
13543 | 689 } |
690 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
691 #define w32_clear_rect(f,hdc,lprect) \ |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
692 w32_fill_rect (f,hdc,f->output_data.x->background_pixel,lprect) |
13543 | 693 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
694 #define w32_clear_area(f,hdc,px,py,nx,ny) \ |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
695 w32_fill_area (f,hdc,f->output_data.x->background_pixel,px,py,nx,ny) |
13543 | 696 |
23508
4e067ce42325
Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22080
diff
changeset
|
697 extern struct font_info *w32_load_font (); |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
698 extern void w32_unload_font (); |
13543 | 699 |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
700 /* Define for earlier versions of Visual C */ |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
701 #ifndef WM_MOUSEWHEEL |
21876
52ebc509a367
(WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21615
diff
changeset
|
702 #define WM_MOUSEWHEEL (WM_MOUSELAST + 1) |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
703 #endif /* WM_MOUSEWHEEL */ |
21876
52ebc509a367
(WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21615
diff
changeset
|
704 #ifndef MSH_MOUSEWHEEL |
52ebc509a367
(WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21615
diff
changeset
|
705 #define MSH_MOUSEWHEEL "MSWHEEL_ROLLMSG" |
52ebc509a367
(WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21615
diff
changeset
|
706 #endif /* MSH_MOUSEWHEEL */ |
42718
0546caffda34
(WM_XBUTTONDOWN, WM_XBUTTONUP): New window messages
Jason Rumney <jasonr@gnu.org>
parents:
41735
diff
changeset
|
707 #ifndef WM_XBUTTONDOWN |
0546caffda34
(WM_XBUTTONDOWN, WM_XBUTTONUP): New window messages
Jason Rumney <jasonr@gnu.org>
parents:
41735
diff
changeset
|
708 #define WM_XBUTTONDOWN (WM_MOUSEWHEEL + 1) |
0546caffda34
(WM_XBUTTONDOWN, WM_XBUTTONUP): New window messages
Jason Rumney <jasonr@gnu.org>
parents:
41735
diff
changeset
|
709 #define WM_XBUTTONUP (WM_MOUSEWHEEL + 2) |
0546caffda34
(WM_XBUTTONDOWN, WM_XBUTTONUP): New window messages
Jason Rumney <jasonr@gnu.org>
parents:
41735
diff
changeset
|
710 #endif /* WM_XBUTTONDOWN */ |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
711 |
13543 | 712 #define WM_EMACS_START (WM_USER + 1) |
23676
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
713 #define WM_EMACS_KILL (WM_EMACS_START + 0) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
714 #define WM_EMACS_CREATEWINDOW (WM_EMACS_START + 1) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
715 #define WM_EMACS_DONE (WM_EMACS_START + 2) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
716 #define WM_EMACS_CREATESCROLLBAR (WM_EMACS_START + 3) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
717 #define WM_EMACS_SHOWWINDOW (WM_EMACS_START + 4) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
718 #define WM_EMACS_SETWINDOWPOS (WM_EMACS_START + 5) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
719 #define WM_EMACS_DESTROYWINDOW (WM_EMACS_START + 6) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
720 #define WM_EMACS_TRACKPOPUPMENU (WM_EMACS_START + 7) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
721 #define WM_EMACS_SETFOCUS (WM_EMACS_START + 8) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
722 #define WM_EMACS_SETFOREGROUND (WM_EMACS_START + 9) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
723 #define WM_EMACS_SETLOCALE (WM_EMACS_START + 10) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
724 #define WM_EMACS_SETKEYBOARDLAYOUT (WM_EMACS_START + 11) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
725 #define WM_EMACS_REGISTER_HOT_KEY (WM_EMACS_START + 12) |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
726 #define WM_EMACS_UNREGISTER_HOT_KEY (WM_EMACS_START + 13) |
23805
44ad68548ff9
(WM_EMACS_TOGGLE_LOCK_KEY): New define.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23676
diff
changeset
|
727 #define WM_EMACS_TOGGLE_LOCK_KEY (WM_EMACS_START + 14) |
40382
771aec14ad74
(WM_EMACS_TRACK_CARET, WM_EMACS_DESTROY_CARET): New messages types.
Jason Rumney <jasonr@gnu.org>
parents:
40150
diff
changeset
|
728 #define WM_EMACS_TRACK_CARET (WM_EMACS_START + 15) |
771aec14ad74
(WM_EMACS_TRACK_CARET, WM_EMACS_DESTROY_CARET): New messages types.
Jason Rumney <jasonr@gnu.org>
parents:
40150
diff
changeset
|
729 #define WM_EMACS_DESTROY_CARET (WM_EMACS_START + 16) |
42863
cff9c12217fd
(WM_EMACS_SHOW_CARET, WM_EMACS_HIDE_CARET): New
Jason Rumney <jasonr@gnu.org>
parents:
42718
diff
changeset
|
730 #define WM_EMACS_SHOW_CARET (WM_EMACS_START + 17) |
cff9c12217fd
(WM_EMACS_SHOW_CARET, WM_EMACS_HIDE_CARET): New
Jason Rumney <jasonr@gnu.org>
parents:
42718
diff
changeset
|
731 #define WM_EMACS_HIDE_CARET (WM_EMACS_START + 18) |
49370
fdaa0f133d3f
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
47149
diff
changeset
|
732 #define WM_EMACS_SETCURSOR (WM_EMACS_START + 19) |
fdaa0f133d3f
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
47149
diff
changeset
|
733 #define WM_EMACS_END (WM_EMACS_START + 20) |
13543 | 734 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
735 #define WND_FONTWIDTH_INDEX (0) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
736 #define WND_LINEHEIGHT_INDEX (4) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
737 #define WND_BORDER_INDEX (8) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
738 #define WND_SCROLLBAR_INDEX (12) |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
739 #define WND_BACKGROUND_INDEX (16) |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
740 #define WND_LAST_INDEX (20) |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
741 |
13543 | 742 #define WND_EXTRA_BYTES (WND_LAST_INDEX) |
743 | |
16886
c686d4f3728a
Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
744 extern DWORD dwWindowsThreadId; |
c686d4f3728a
Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
745 extern HANDLE hWindowsThread; |
13543 | 746 extern DWORD dwMainThreadId; |
747 extern HANDLE hMainThread; | |
748 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
749 typedef struct W32Msg { |
13543 | 750 MSG msg; |
751 DWORD dwModifiers; | |
752 RECT rect; | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
753 } W32Msg; |
13543 | 754 |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
755 /* Structure for recording message when input thread must return a |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
756 result that depends on lisp thread to compute. Lisp thread can |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
757 complete deferred messages out of order. */ |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
758 typedef struct deferred_msg |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
759 { |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
760 struct deferred_msg * next; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
761 W32Msg w32msg; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
762 LRESULT result; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
763 int completed; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
764 } deferred_msg; |
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
765 |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
766 extern CRITICAL_SECTION critsect; |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
767 |
13543 | 768 extern void init_crit (); |
769 extern void delete_crit (); | |
770 | |
22080
f519dedee9bc
(signal_quit): Add prototype.
Richard M. Stallman <rms@gnu.org>
parents:
21876
diff
changeset
|
771 extern void signal_quit (); |
f519dedee9bc
(signal_quit): Add prototype.
Richard M. Stallman <rms@gnu.org>
parents:
21876
diff
changeset
|
772 |
15152
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
773 #define enter_crit() EnterCriticalSection (&critsect) |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
774 #define leave_crit() LeaveCriticalSection (&critsect) |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
775 |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
776 extern void select_palette (struct frame * f, HDC hdc); |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
777 extern void deselect_palette (struct frame * f, HDC hdc); |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
778 extern HDC get_frame_dc (struct frame * f); |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
779 extern int release_frame_dc (struct frame * f, HDC hDC); |
2dd4961cefaa
(struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14984
diff
changeset
|
780 |
24916
dcad7c5b7add
(drain_message_queue): Add extern.
Andrew Innes <andrewi@gnu.org>
parents:
24145
diff
changeset
|
781 extern void drain_message_queue (); |
dcad7c5b7add
(drain_message_queue): Add extern.
Andrew Innes <andrewi@gnu.org>
parents:
24145
diff
changeset
|
782 |
13543 | 783 extern BOOL get_next_msg (); |
784 extern BOOL post_msg (); | |
19714
72fa0e75a0fe
(w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents:
16888
diff
changeset
|
785 extern void complete_deferred_msg (HWND hwnd, UINT msg, LRESULT result); |
13543 | 786 extern void wait_for_sync (); |
787 | |
788 extern BOOL parse_button (); | |
14809
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
789 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15152
diff
changeset
|
790 /* Keypad command key support. W32 doesn't have virtual keys defined |
14809
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
791 for the function keys on the keypad (they are mapped to the standard |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
792 fuction keys), so we define our own. */ |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
793 #define VK_NUMPAD_BEGIN 0x92 |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
794 #define VK_NUMPAD_CLEAR (VK_NUMPAD_BEGIN + 0) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
795 #define VK_NUMPAD_ENTER (VK_NUMPAD_BEGIN + 1) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
796 #define VK_NUMPAD_PRIOR (VK_NUMPAD_BEGIN + 2) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
797 #define VK_NUMPAD_NEXT (VK_NUMPAD_BEGIN + 3) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
798 #define VK_NUMPAD_END (VK_NUMPAD_BEGIN + 4) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
799 #define VK_NUMPAD_HOME (VK_NUMPAD_BEGIN + 5) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
800 #define VK_NUMPAD_LEFT (VK_NUMPAD_BEGIN + 6) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
801 #define VK_NUMPAD_UP (VK_NUMPAD_BEGIN + 7) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
802 #define VK_NUMPAD_RIGHT (VK_NUMPAD_BEGIN + 8) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
803 #define VK_NUMPAD_DOWN (VK_NUMPAD_BEGIN + 9) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
804 #define VK_NUMPAD_INSERT (VK_NUMPAD_BEGIN + 10) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
805 #define VK_NUMPAD_DELETE (VK_NUMPAD_BEGIN + 11) |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
806 |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
807 #ifndef VK_LWIN |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
808 /* Older compiler environments don't have these defined. */ |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
809 #define VK_LWIN 0x5B |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
810 #define VK_RWIN 0x5C |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
811 #define VK_APPS 0x5D |
fb9e2125fc2e
(VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents:
14521
diff
changeset
|
812 #endif |
23676
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
813 |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
814 /* Support for treating Windows and Apps keys as modifiers. These |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
815 constants must not overlap with any of the dwControlKeyState flags in |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
816 KEY_EVENT_RECORD. */ |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
817 #define LEFT_WIN_PRESSED 0x8000 |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
818 #define RIGHT_WIN_PRESSED 0x4000 |
704d2e178bcb
(struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23508
diff
changeset
|
819 #define APPS_PRESSED 0x2000 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
820 |
41735
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
821 /* When compiling on Windows 9x/ME and NT 3.x, the following are not defined |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
822 (even though they are supported on 98 and ME. */ |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
823 #ifndef WM_MOUSELEAVE |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
824 #define WM_MOUSELEAVE 0x02A3 |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
825 #define TME_LEAVE 0x00000002; |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
826 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49370
diff
changeset
|
827 typedef struct tagTRACKMOUSEEVENT |
41735
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
828 { |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
829 DWORD cbSize; |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
830 DWORD dwFlags; |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
831 HWND hwndTrack; |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
832 DWORD dwHoverTime; |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
833 } TRACKMOUSEEVENT; |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
834 #endif |
cd985673cfc3
(WM_MOUSELEAVE, TME_LEAVE, TRACKMOUSEEVENT) [!WM_MOUSELEAVE]: Define.
Jason Rumney <jasonr@gnu.org>
parents:
41728
diff
changeset
|
835 |
37698
e97aa7dfaf5c
(struct image, struct face): Forward declaration, to avoid compiler warnings.
Eli Zaretskii <eliz@gnu.org>
parents:
36254
diff
changeset
|
836 struct image; |
e97aa7dfaf5c
(struct image, struct face): Forward declaration, to avoid compiler warnings.
Eli Zaretskii <eliz@gnu.org>
parents:
36254
diff
changeset
|
837 struct face; |
e97aa7dfaf5c
(struct image, struct face): Forward declaration, to avoid compiler warnings.
Eli Zaretskii <eliz@gnu.org>
parents:
36254
diff
changeset
|
838 |
27403
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
839 XGCValues *XCreateGC (void *, Window, unsigned long, XGCValues *); |
220407a99b21
(XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents:
26729
diff
changeset
|
840 struct frame * check_x_frame (Lisp_Object); |
29309 | 841 EXFUN (Fx_display_color_p, 1); |
842 EXFUN (Fx_display_grayscale_p, 1); | |
843 int image_ascent P_ ((struct image *, struct face *)); | |
50155
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
844 |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
845 #define FONT_TYPE_FOR_UNIBYTE(font, ch) \ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
846 ((font)->bdf ? BDF_1D_FONT : ANSI_FONT) |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
847 |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
848 #define FONT_TYPE_FOR_MULTIBYTE(font, ch) \ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
849 (!(font)->bdf \ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
850 ? UNICODE_FONT \ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
851 : ((CHARSET_DIMENSION (CHAR_CHARSET ((ch))) == 1) \ |
2b702ff059f8
(FRAME_X_OUTPUT, FRAME_X_WINDOW, FRAME_X_DISPLAY)
Kim F. Storm <storm@cua.dk>
parents:
50037
diff
changeset
|
852 ? BDF_1D_FONT : BDF_2D_FONT)) |