annotate src/w32term.h @ 33110:10379d59910e custom_themes_branchpoint

(custom-mode-map): Switch back to a sparse keymap.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 31 Oct 2000 21:06:51 +0000
parents 9fa317523a69
children ba5202c8e467
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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.
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2 Copyright (C) 1995 Free Software Foundation, Inc.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4 This file is part of GNU Emacs.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9 any later version.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
14 GNU General Public License for more details.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
20
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21 /* Added by Kevin Gallo */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
22
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
23 #include "w32gui.h"
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
24
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
25 /* The class of this X application. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
26 #define EMACS_CLASS "Emacs"
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
27
14984
e8a969370f33 (BLACK_PIX_DEFAULT, WHITE_PIX_DEFAULT): Use PALETTERGB instead of RGB.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14809
diff changeset
28 #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
29 #define WHITE_PIX_DEFAULT(f) PALETTERGB(255,255,255)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
30
24145
95d0947c83b2 (FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents: 23807
diff changeset
31 #define FONT_WIDTH(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->width : (f)->tm.tmAveCharWidth)
95d0947c83b2 (FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents: 23807
diff changeset
33 #define FONT_HEIGHT(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->height : (f)->tm.tmHeight)
95d0947c83b2 (FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents: 23807
diff changeset
35 #define FONT_BASE(f) \
95d0947c83b2 (FONT_WIDTH, FONT_HEIGHT, FONT_BASE, FONT_MAX_WIDTH):
Geoff Voelker <voelker@cs.washington.edu>
parents: 23807
diff changeset
36 ((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
37 #define FONT_DESCENT(f) \
33036
9fa317523a69 (FONT_DESCENT): Negate descent for BDF fonts
Jason Rumney <jasonr@gnu.org>
parents: 32723
diff changeset
38 ((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
39 #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
40 ((f)->bdf ? (f)->bdf->width : (f)->tm.tmMaxCharWidth)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
41
29309
7f49fb2648f1 (CP_DEFAULT): Define.
Jason Rumney <jasonr@gnu.org>
parents: 27403
diff changeset
42 #define CP_DEFAULT 1004
7f49fb2648f1 (CP_DEFAULT): Define.
Jason Rumney <jasonr@gnu.org>
parents: 27403
diff changeset
43
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
44 #define CHECK_W32_FRAME(f, frame) \
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
45 if (NILP (frame)) \
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
46 f = SELECTED_FRAME (); \
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
47 else \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
48 { \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
49 CHECK_LIVE_FRAME (frame, 0); \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
50 f = XFRAME (frame); \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
51 } \
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
52 if (! FRAME_W32_P (f))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
53
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
54
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
55 /* Indicates whether we are in the readsocket call and the message we
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
56 are processing in the current loop */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
57
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
58 extern MSG CurMsg;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
59 extern BOOL bUseDflt;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
60
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
61 extern struct frame *x_window_to_frame ();
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
62
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
63 enum text_cursor_kinds {
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
64 NO_CURSOR = -1,
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
65 FILLED_BOX_CURSOR,
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
66 HOLLOW_BOX_CURSOR,
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
67 BAR_CURSOR
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
68 };
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
69
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
70 /* Structure recording bitmaps and reference count.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
71 If REFCOUNT is 0 then this record is free to be reused. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
72
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
73 struct w32_bitmap_record
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
74 {
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
75 Pixmap pixmap;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
76 char *file;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
77 HINSTANCE hinst; /* Used to load the file */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
78 int refcount;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
79 /* Record some info about this pixmap. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
80 int height, width, depth;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
81 };
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
82
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
83 /* 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
84 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
85 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
86
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
87 extern Lisp_Object Vw32_enable_palette;
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
88
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
89 struct w32_palette_entry {
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
90 struct w32_palette_entry * next;
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
91 PALETTEENTRY entry;
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
92 #if 0
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
93 unsigned refcount;
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
94 #endif
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
95 };
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
96
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
97 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
98
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
99
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
100 /* For each display (currently only one on w32), we have a structure that
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
101 records information about it. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
102
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
103 struct w32_display_info
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
104 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
105 /* 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
106 struct w32_display_info *next;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
107
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
108 /* This is a cons cell of the form (NAME . FONT-LIST-CACHE).
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
109 The same cons cell also appears in x_display_name_list. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
110 Lisp_Object name_list_element;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
111
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
112 /* Number of frames that are on this display. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
113 int reference_count;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
114
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
115 /* Dots per inch of the screen. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
116 double resx, resy;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
117
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
118 /* Number of planes on this screen. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
119 int n_planes;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
120
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
121 /* Number of bits per pixel on this screen. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
122 int n_cbits;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
123
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
124 /* Dimensions of this screen. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
125 int height, width;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
126 int height_in,width_in;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
127
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
128 /* Mask of things that cause the mouse to be grabbed. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
129 int grabbed;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
130
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
131 /* 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
132 Or -1 if none has been allocated yet. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
133 int icon_bitmap_id;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
134
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
135 /* The root window of this screen. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
136 Window root_window;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
137
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
138 /* The cursor to use for vertical scroll bars. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
139 Cursor vertical_scroll_bar_cursor;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
140
23676
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
141 /* color palette information. */
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
142 int has_palette;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
143 struct w32_palette_entry * color_list;
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
144 unsigned num_colors;
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
145 HPALETTE 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 /* 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
148 int regen_palette;
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
149
23676
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
150 /* 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
151 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
152 int faked_key;
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
153
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
154 /* A table of all the fonts we have already loaded. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
155 struct font_info *font_table;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
156
23508
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
157 /* The current capacity of font_table. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
158 int font_table_size;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
159
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
160 /* 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
161 int smallest_char_width;
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 /* 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
164 int smallest_font_height;
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 /* 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
167 XGCValues *scratch_cursor_gc;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
168
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
169 /* 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
170 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
171 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
172 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
173 MOUSE_FACE_WINDOW. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
174 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
175 int mouse_face_beg_x, mouse_face_beg_y;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
176 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
177 int mouse_face_end_x, mouse_face_end_y;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
178 int mouse_face_past_end;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
179 Lisp_Object mouse_face_window;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
180 int mouse_face_face_id;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
181
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
182 /* 1 if a mouse motion event came and we didn't handle it right away because
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
183 gc was in progress. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
184 int mouse_face_deferred_gc;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
185
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
186 /* FRAME and X, Y position of mouse when last checked for
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
187 highlighting. X and Y can be negative or out of range for the frame. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
188 struct frame *mouse_face_mouse_frame;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
189 int mouse_face_mouse_x, mouse_face_mouse_y;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
190
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
191 /* Nonzero means defer mouse-motion highlighting. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
192 int mouse_face_defer;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
193
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
194 int mouse_face_image_state;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
195
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
196 char *w32_id_name;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
197
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
198 /* 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
199 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
200 n_fonts <= font_table_size. and font_table[i].name != 0. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
201 int n_fonts;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
202
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
203 /* Pointer to bitmap records. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
204 struct w32_bitmap_record *bitmaps;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
205
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
206 /* Allocated size of bitmaps field. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
207 int bitmaps_size;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
208
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
209 /* Last used bitmap index. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
210 int bitmaps_last;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
211
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
212 /* The frame (if any) which has the window that has keyboard focus.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
213 Zero if none. This is examined by Ffocus_frame in w32fns.c. Note
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
214 that a mere EnterNotify event can set this; if you need to know the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
215 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
216 w32_focus_event_frame. */
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
217 struct frame *w32_focus_frame;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
218
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
219 /* 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
220 separate from w32_focus_frame, because whether or not LeaveNotify
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
221 events cause us to lose focus depends on whether or not we have
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
222 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
223 struct frame *w32_focus_event_frame;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
224
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
225 /* The frame which currently has the visual highlight, and should get
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
226 keyboard input (other sorts of input have the frame encoded in the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
227 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
228 frame. It differs from w32_focus_frame when we're using a global
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
229 minibuffer. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
230 struct frame *w32_highlight_frame;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
231
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
232 /* Cache of images. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
233 struct image_cache *image_cache;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
234 };
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
235
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
236 /* This is a chain of structures for all the displays currently in use. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
237 extern struct w32_display_info one_w32_display_info;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
238
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
239 /* 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
240 one for each element of w32_display_list and in the same order.
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
241 NAME is the name of the frame.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
242 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
243 extern Lisp_Object w32_display_name_list;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
244
23508
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
245 /* 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
246 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
247
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
248 /* 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
249 extern int unibyte_display_via_language_environment;
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
250
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
251 struct w32_display_info *x_display_info_for_name ();
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
252
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
253 extern struct w32_display_info *w32_term_init ();
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
254
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
255 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
256 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
257 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
258 extern void w32_find_ccl_program();
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
259
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
260 #define PIX_TYPE COLORREF
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
261
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
262 /* 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
263 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
264 the information that is specific to W32 windows. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
265
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
266 /* Put some things in x_output for compatibility.
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
267 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
268 diffs between X and w32 code. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
269 struct x_output
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
270 {
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
271 PIX_TYPE background_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
272 PIX_TYPE foreground_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
273 };
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
274
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
275
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
276 struct w32_output
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
277 {
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
278 /* Placeholder for things accessed through output_data.x. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
279 struct x_output x_compatibile;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
280
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
281 /* Menubar "widget" handle. */
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
282 HMENU menubar_widget;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
283
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
284 /* 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
285 HPALETTE old_palette;
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
286
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
287 /* Position of the W32 window (x and y offsets in root window). */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
288 int left_pos;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
289 int top_pos;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
290
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
291 /* Border width of the W32 window as known by the window system. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
292 int border_width;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
293
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
294 /* Size of the W32 window in pixels. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
295 int pixel_height, pixel_width;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
296
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
297 /* Height of a line, in pixels. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
298 int line_height;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
299
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
300 /* 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
301 XGCValues *cursor_gc; /* cursor drawing */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
302
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
303 /* Width of the internal border. This is a line of background color
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
304 just inside the window's border. When the frame is selected,
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
305 a highlighting is displayed inside the internal border. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
306 int internal_border_width;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
307
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
308 /* The window used for this frame.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
309 May be zero while the frame object is being created
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
310 and the window has not yet been created. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
311 Window window_desc;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
312
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
313 /* The window that is the parent of this window.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
314 Usually this is a window that was made by the window manager,
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
315 but it can be the root window, and it can be explicitly specified
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
316 (see the explicit_parent field, below). */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
317 Window parent_desc;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
318
23508
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
319 /* Default ASCII font of this frame. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
320 XFontStruct *font;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
321
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
322 /* The baseline offset of the default ASCII font. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
323 int baseline_offset;
23508
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
324
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
325 /* 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
326 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
327 int fontset;
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
328
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
329 /* Pixel values used for various purposes.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
330 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
331 COLORREF cursor_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
332 COLORREF border_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
333 COLORREF mouse_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
334 COLORREF cursor_foreground_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
335
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
336 /* 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
337 default (black for non-toolkit scroll bars). */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
338 COLORREF scroll_bar_foreground_pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
339
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
340 /* 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
341 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
342 bars). */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
343 COLORREF scroll_bar_background_pixel;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
344
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
345 /* Descriptor for the cursor in use for this window. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
346 Cursor text_cursor;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
347 Cursor nontext_cursor;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
348 Cursor modeline_cursor;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
349 Cursor cross_cursor;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
350 Cursor busy_cursor;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
351
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
352 /* Window whose cursor is busy_cursor. This window is temporarily
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
353 mapped to display a busy-cursor. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
354 Window busy_window;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
355
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
356 /* Non-zero means busy cursor is currently displayed. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
357 unsigned busy_p : 1;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
358
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
359 /* Flag to set when the window needs to be completely repainted. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
360 int needs_exposure;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
361
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
362 /* What kind of text cursor is drawn in this window right now?
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
363 (If there is no cursor (phys_cursor_x < 0), then this means nothing.) */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
364 enum text_cursor_kinds current_cursor;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
365
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
366 /* What kind of text cursor should we draw in the future?
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
367 This should always be filled_box_cursor or bar_cursor. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
368 enum text_cursor_kinds desired_cursor;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
369
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
370 /* Width of bar cursor (if we are using that). */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
371 int cursor_width;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
372
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
373 DWORD dwStyle;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
374
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
375 /* The size of the extra width currently allotted for vertical
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
376 scroll bars, in pixels. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
377 int vertical_scroll_bar_extra;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
378
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
379 /* 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
380 truncation marks, continuation marks, and overlay arrows are
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
381 displayed. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
382 int flags_areas_extra;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
383
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
384 /* This is the gravity value for the specified window position. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
385 int win_gravity;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
386
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
387 /* The geometry flags for this window. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
388 int size_hint_flags;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
389
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
390 /* 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
391 /* struct w32_display_info *display_info; */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
392
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
393 /* Nonzero means our parent is another application's window
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
394 and was explicitly specified. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
395 char explicit_parent;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
396
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
397 /* Nonzero means tried already to make this frame visible. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
398 char asked_for_visible;
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
399
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
400 /* 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
401 char menubar_active;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
402
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
403 /* 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
404 brought up to date first. */
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
405 volatile char pending_menu_activation;
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
406
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
407 /* Relief GCs, colors etc. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
408 struct relief
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 XGCValues *gc;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
411 unsigned long pixel;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
412 int allocated_p;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
413 }
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
414 black_relief, white_relief;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
415
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
416 /* 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
417 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
418 unsigned long relief_background;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
419 };
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
420
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 24916
diff changeset
421 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
422
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
423 /* 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
424 #define FRAME_W32_WINDOW(f) ((f)->output_data.w32->window_desc)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
425
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
426 #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
427 #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
428 #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
429 #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
430 #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
431 #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
432 /* 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
433 terminal specific header. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
434 #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
435 #define FRAME_BASELINE_OFFSET(f) ((f)->output_data.w32->baseline_offset)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
436
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
437 /* 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
438 #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
439 #define FRAME_X_DISPLAY_INFO(f) (&one_w32_display_info)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
440
23508
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
441 /* 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
442 #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
443
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
444 /* 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
445 #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
446 #define PIXEL_HEIGHT(f) ((f)->output_data.w32->pixel_height)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
447
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
448 #define FRAME_DESIRED_CURSOR(f) ((f)->output_data.w32->desired_cursor)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
449
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
450 /* 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
451
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
452 #define FRAME_SMALLEST_CHAR_WIDTH(F) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
453 FRAME_W32_DISPLAY_INFO(F)->smallest_char_width
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
454
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
455 /* 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
456
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
457 #define FRAME_SMALLEST_FONT_HEIGHT(F) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
458 FRAME_W32_DISPLAY_INFO(F)->smallest_font_height
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
459
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
460 /* 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
461
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
462 #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
463
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
464
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
465 /* Pixel width of the bitmaps drawn to indicate truncation,
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
466 continuation etc. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
467
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
468 #define FRAME_FLAGS_BITMAP_WIDTH(f) 8
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
469 #define FRAME_FLAGS_BITMAP_HEIGHT(f) 8
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
470
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
471 /* Total width of areas reserved for drawing truncation bitmaps,
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
472 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
473 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
474 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
475 able to split windows horizontally nicely. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
476
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
477 #define FRAME_X_FLAGS_AREA_COLS(F) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
478 ((2 * FRAME_FLAGS_BITMAP_WIDTH ((F)) + CANON_X_UNIT ((F)) - 1) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
479 / CANON_X_UNIT ((F)))
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
480
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
481 /* Total width of flags areas in pixels. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
482
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
483 #define FRAME_X_FLAGS_AREA_WIDTH(F) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
484 (FRAME_X_FLAGS_AREA_COLS ((F)) * CANON_X_UNIT ((F)))
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
485
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
486 /* Pixel-width of the left flags area. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
487
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
488 #define FRAME_X_LEFT_FLAGS_AREA_WIDTH(F) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
489 (FRAME_X_FLAGS_AREA_WIDTH (F) / 2)
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
490
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
491 /* Pixel-width of the right flags area. Note that we are doing
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
492 integer arithmetic here, so don't loose a pixel if the total
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
493 width is an odd number. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
494
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
495 #define FRAME_X_RIGHT_FLAGS_AREA_WIDTH(F) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
496 (FRAME_X_FLAGS_AREA_WIDTH (F) - FRAME_X_FLAGS_AREA_WIDTH (F) / 2)
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
497
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
498
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
499
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
500 /* W32-specific scroll bar stuff. */
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
501
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
502 /* We represent scroll bars as lisp vectors. This allows us to place
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
503 references to them in windows without worrying about whether we'll
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
504 end up with windows referring to dead scroll bars; the garbage
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
505 collector will free it when its time comes.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
506
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
507 We use struct scroll_bar as a template for accessing fields of the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
508 vector. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
509
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
510 struct scroll_bar {
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
511
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
512 /* These fields are shared by all vectors. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
513 EMACS_INT size_from_Lisp_Vector_struct;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
514 struct Lisp_Vector *next_from_Lisp_Vector_struct;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
515
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
516 /* The window we're a scroll bar for. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
517 Lisp_Object window;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
518
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
519 /* The next and previous in the chain of scroll bars in this frame. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
520 Lisp_Object next, prev;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
521
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
522 /* The window representing this scroll bar. Since this is a full
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
523 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
524 Lisp_Object w32_window_low, w32_window_high;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
525
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
526 /* Same as above for the widget. */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
527 Lisp_Object w32_widget_low, w32_widget_high;
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
528
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
529 /* The position and size of the scroll bar in pixels, relative to the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
530 frame. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
531 Lisp_Object top, left, width, height;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
532
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
533 /* The starting and ending positions of the handle, relative to the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
534 handle area (i.e. zero is the top position, not
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
535 SCROLL_BAR_TOP_BORDER). If they're equal, that means the handle
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
536 hasn't been drawn yet.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
537
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
538 These are not actually the locations where the beginning and end
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
539 are drawn; in order to keep handles from becoming invisible when
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
540 editing large files, we establish a minimum height by always
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
541 drawing handle bottoms VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
542 where they would be normally; the bottom and top are in a
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
543 different co-ordinate system. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
544 Lisp_Object start, end;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
545
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
546 /* If the scroll bar handle is currently being dragged by the user,
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
547 this is the number of pixels from the top of the handle to the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
548 place where the user grabbed it. If the handle isn't currently
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
549 being dragged, this is Qnil. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
550 Lisp_Object dragging;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
551 };
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
552
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
553 /* The number of elements a vector holding a struct scroll_bar needs. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
554 #define SCROLL_BAR_VEC_SIZE \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
555 ((sizeof (struct scroll_bar) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
556 - sizeof (EMACS_INT) - sizeof (struct Lisp_Vector *)) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
557 / sizeof (Lisp_Object))
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
558
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
559 /* Turning a lisp vector value into a pointer to a struct scroll_bar. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
560 #define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
561
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
562
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
563 /* Building a 32-bit C integer from two 16-bit lisp integers. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
564 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
565
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
566 /* Setting two lisp integers to the low and high words of a 32-bit C int. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
567 #define SCROLL_BAR_UNPACK(low, high, int32) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
568 (XSETINT ((low), (int32) & 0xffff), \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
569 XSETINT ((high), ((int32) >> 16) & 0xffff))
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
570
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
571
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
572 /* 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
573 #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
574 ((Window) SCROLL_BAR_PACK ((ptr)->w32_window_low, (ptr)->w32_window_high))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
575
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
576 /* 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
577 #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
578 (SCROLL_BAR_UNPACK ((ptr)->w32_window_low, (ptr)->w32_window_high, (int) id))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
579
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
580 /* 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
581 #define SCROLL_BAR_X_WIDGET(ptr) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
582 ((Widget) SCROLL_BAR_PACK ((ptr)->x_widget_low, (ptr)->x_widget_high))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
583
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
584 /* 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
585 #define SET_SCROLL_BAR_X_WIDGET(ptr, w) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
586 (SCROLL_BAR_UNPACK ((ptr)->x_widget_low, (ptr)->x_widget_high, (int) w))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
587
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
588 /* Return the inside width of a vertical scroll bar, given the outside
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
589 width. */
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
590 #define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f,width) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
591 ((width) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
592 - VERTICAL_SCROLL_BAR_LEFT_BORDER \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
593 - VERTICAL_SCROLL_BAR_RIGHT_BORDER \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
594 - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
595
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
596 /* Return the length of the rectangle within which the top of the
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
597 handle must stay. This isn't equivalent to the inside height,
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
598 because the scroll bar handle has a minimum height.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
599
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
600 This is the real range of motion for the scroll bar, so when we're
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
601 scaling buffer positions to scroll bar positions, we use this, not
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
602 VERTICAL_SCROLL_BAR_INSIDE_HEIGHT. */
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
603 #define VERTICAL_SCROLL_BAR_TOP_RANGE(f,height) \
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
604 (VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, height) - VERTICAL_SCROLL_BAR_MIN_HANDLE)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
605
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
606 /* Return the inside height of vertical scroll bar, given the outside
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
607 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
608 #define VERTICAL_SCROLL_BAR_INSIDE_HEIGHT(f,height) \
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
609 ((height) - VERTICAL_SCROLL_BAR_TOP_BORDER - VERTICAL_SCROLL_BAR_BOTTOM_BORDER)
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
610
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
611
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
612 /* Border widths for scroll bars.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
613
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
614 Scroll bar windows don't have any borders; their border width is
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
615 set to zero, and we redraw borders ourselves. This makes the code
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
616 a bit cleaner, since we don't have to convert between outside width
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
617 (used when relating to the rest of the screen) and inside width
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
618 (used when sizing and drawing the scroll bar window itself).
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
619
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
620 The handle moves up and down/back and forth in a rectangle inset
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
621 from the edges of the scroll bar. These are widths by which we
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
622 inset the handle boundaries from the scroll bar edges. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
623 #define VERTICAL_SCROLL_BAR_LEFT_BORDER (0)
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
624 #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
625 #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
626 #define VERTICAL_SCROLL_BAR_BOTTOM_BORDER (vertical_scroll_bar_bottom_border)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
627
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
628 /* 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
629 #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
630
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
631 /* 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
632 text from glomming up against the scroll bar */
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
633 #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
634
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
635
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
636 /* Manipulating pixel sizes and character sizes.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
637 Knowledge of which factors affect the overall size of the window should
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
638 be hidden in these macros, if that's possible.
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
639
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
640 Return the upper/left pixel position of the character cell on frame F
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
641 at ROW/COL. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
642 #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
643 ((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
644 + (row) * (f)->output_data.w32->line_height)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
645 #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
646 ((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
647 + (col) * FONT_WIDTH ((f)->output_data.w32->font))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
648
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
649 /* Return the pixel width/height of frame F if it has
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
650 WIDTH columns/HEIGHT rows. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
651 #define CHAR_TO_PIXEL_WIDTH(f, width) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
652 (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
653 + (f)->output_data.w32->vertical_scroll_bar_extra \
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
654 + (f)->output_data.w32->flags_areas_extra \
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
655 + (f)->output_data.w32->internal_border_width)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
656 #define CHAR_TO_PIXEL_HEIGHT(f, height) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
657 (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
658 + (f)->output_data.w32->internal_border_width)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
659
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
660
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
661 /* Return the row/column (zero-based) of the character cell containing
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
662 the pixel on FRAME at ROW/COL. */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
663 #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
664 (((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
665 / (f)->output_data.w32->line_height)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
666 #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
667 (((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
668 / FONT_WIDTH ((f)->output_data.w32->font))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
669
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
670 /* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
671 frame F? */
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
672 #define PIXEL_TO_CHAR_WIDTH(f, width) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
673 (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
674 - (f)->output_data.w32->internal_border_width \
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
675 - (f)->output_data.w32->flags_areas_extra \
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
676 - (f)->output_data.w32->vertical_scroll_bar_extra)))
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
677 #define PIXEL_TO_CHAR_HEIGHT(f, height) \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
678 (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
679 - (f)->output_data.w32->internal_border_width)))
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
680
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
681
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
682 extern void w32_fill_rect ();
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
683 extern void w32_clear_window ();
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
684
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
685 #define w32_fill_area(f,hdc,pix,x,y,nx,ny) \
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
686 { \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
687 RECT rect; \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
688 rect.left = x; \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
689 rect.top = y; \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
690 rect.right = x + nx; \
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
691 rect.bottom = y + ny; \
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
692 w32_fill_rect (f,hdc,pix,&rect); \
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
693 }
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
694
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
695 #define w32_clear_rect(f,hdc,lprect) \
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
696 w32_fill_rect (f,hdc,f->output_data.x->background_pixel,lprect)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
697
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
698 #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
699 w32_fill_area (f,hdc,f->output_data.x->background_pixel,px,py,nx,ny)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
700
23508
4e067ce42325 Remove redundant font_info struct definition.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22080
diff changeset
701 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
702 extern void w32_unload_font ();
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
703
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
704 /* 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
705 #ifndef WM_MOUSEWHEEL
21876
52ebc509a367 (WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21615
diff changeset
706 #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
707 #endif /* WM_MOUSEWHEEL */
21876
52ebc509a367 (WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21615
diff changeset
708 #ifndef MSH_MOUSEWHEEL
52ebc509a367 (WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21615
diff changeset
709 #define MSH_MOUSEWHEEL "MSWHEEL_ROLLMSG"
52ebc509a367 (WM_MOUSEWHEEL): Define relative to WM_MOUSELAST.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21615
diff changeset
710 #endif /* MSH_MOUSEWHEEL */
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
711
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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)
44ad68548ff9 (WM_EMACS_TOGGLE_LOCK_KEY): New define.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23676
diff changeset
728 #define WM_EMACS_END (WM_EMACS_START + 15)
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
729
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
730 #define WND_FONTWIDTH_INDEX (0)
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
731 #define WND_LINEHEIGHT_INDEX (4)
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
732 #define WND_BORDER_INDEX (8)
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
733 #define WND_SCROLLBAR_INDEX (12)
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
734 #define WND_BACKGROUND_INDEX (16)
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
735 #define WND_LAST_INDEX (20)
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
736
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
737 #define WND_EXTRA_BYTES (WND_LAST_INDEX)
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
738
16886
c686d4f3728a Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
739 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
740 extern HANDLE hWindowsThread;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
741 extern DWORD dwMainThreadId;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
742 extern HANDLE hMainThread;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
743
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
744 typedef struct W32Msg {
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
745 MSG msg;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
746 DWORD dwModifiers;
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
747 RECT rect;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
748 } W32Msg;
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
749
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
750 /* 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
751 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
752 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
753 typedef struct deferred_msg
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
754 {
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
755 struct deferred_msg * next;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
756 W32Msg w32msg;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
757 LRESULT result;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
758 int completed;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
759 } deferred_msg;
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
760
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
761 extern CRITICAL_SECTION critsect;
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
762
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
763 extern void init_crit ();
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
764 extern void delete_crit ();
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
765
22080
f519dedee9bc (signal_quit): Add prototype.
Richard M. Stallman <rms@gnu.org>
parents: 21876
diff changeset
766 extern void signal_quit ();
f519dedee9bc (signal_quit): Add prototype.
Richard M. Stallman <rms@gnu.org>
parents: 21876
diff changeset
767
15152
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
768 #define enter_crit() EnterCriticalSection (&critsect)
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
769 #define leave_crit() LeaveCriticalSection (&critsect)
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
770
2dd4961cefaa (struct win32_palette_entry): New structure.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14984
diff changeset
771 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
772 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
773 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
774 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
775
24916
dcad7c5b7add (drain_message_queue): Add extern.
Andrew Innes <andrewi@gnu.org>
parents: 24145
diff changeset
776 extern void drain_message_queue ();
dcad7c5b7add (drain_message_queue): Add extern.
Andrew Innes <andrewi@gnu.org>
parents: 24145
diff changeset
777
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
778 extern BOOL get_next_msg ();
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
779 extern BOOL post_msg ();
19714
72fa0e75a0fe (w32_output): New fields menubar_widget, menubar_active,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16888
diff changeset
780 extern void complete_deferred_msg (HWND hwnd, UINT msg, LRESULT result);
13543
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
781 extern void wait_for_sync ();
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
782
23c68d2e061f Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
783 extern BOOL parse_button ();
14809
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
784
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15152
diff changeset
785 /* 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
786 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
787 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
788 #define VK_NUMPAD_BEGIN 0x92
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
789 #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
790 #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
791 #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
792 #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
793 #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
794 #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
795 #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
796 #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
797 #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
798 #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
799 #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
800 #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
801
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
802 #ifndef VK_LWIN
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
803 /* 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
804 #define VK_LWIN 0x5B
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
805 #define VK_RWIN 0x5C
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
806 #define VK_APPS 0x5D
fb9e2125fc2e (VK_NUMPAD_*, VK_LWIN, VK_RWIN, VK_APPS):
Geoff Voelker <voelker@cs.washington.edu>
parents: 14521
diff changeset
807 #endif
23676
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
808
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
809 /* 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
810 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
811 KEY_EVENT_RECORD. */
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
812 #define LEFT_WIN_PRESSED 0x8000
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
813 #define RIGHT_WIN_PRESSED 0x4000
704d2e178bcb (struct w32_display_info): New element faked_key.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23508
diff changeset
814 #define APPS_PRESSED 0x2000
27403
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
815
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
816 XGCValues *XCreateGC (void *, Window, unsigned long, XGCValues *);
220407a99b21 (XCharStruct): New struct for emulating X.
Jason Rumney <jasonr@gnu.org>
parents: 26729
diff changeset
817 struct frame * check_x_frame (Lisp_Object);
29309
7f49fb2648f1 (CP_DEFAULT): Define.
Jason Rumney <jasonr@gnu.org>
parents: 27403
diff changeset
818 EXFUN (Fx_display_color_p, 1);
7f49fb2648f1 (CP_DEFAULT): Define.
Jason Rumney <jasonr@gnu.org>
parents: 27403
diff changeset
819 EXFUN (Fx_display_grayscale_p, 1);
7f49fb2648f1 (CP_DEFAULT): Define.
Jason Rumney <jasonr@gnu.org>
parents: 27403
diff changeset
820 int image_ascent P_ ((struct image *, struct face *));