gnus-util.el (gnus-macroexpand-all): Allow optional argument `environment'.
[emacs.git] / src / w32gui.h
blob079cd19a1f187cfdf66e91d4c3b16ba682145520
1 /* Definitions and headers for communication on the Microsoft W32 API.
2 Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
3 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
20 #ifndef EMACS_W32GUI_H
21 #define EMACS_W32GUI_H
22 #include <windows.h>
24 /* Local memory management for menus. */
25 #define local_heap (GetProcessHeap ())
26 #define local_alloc(n) (HeapAlloc (local_heap, HEAP_ZERO_MEMORY, (n)))
27 #define local_free(p) (HeapFree (local_heap, 0, ((LPVOID) (p))))
29 #define malloc_widget_value() ((widget_value *) local_alloc (sizeof (widget_value)))
30 #define free_widget_value(wv) (local_free ((wv)))
32 /* Emulate X GC's by keeping color and font info in a structure. */
33 typedef struct _XGCValues
35 COLORREF foreground;
36 COLORREF background;
37 struct font *font;
38 } XGCValues;
40 #define GCForeground 0x01
41 #define GCBackground 0x02
42 #define GCFont 0x03
44 typedef HBITMAP Pixmap;
45 typedef HBITMAP Bitmap;
47 typedef char * XrmDatabase;
49 typedef XGCValues * GC;
50 typedef COLORREF Color;
51 typedef DWORD Time;
52 typedef HWND Window;
53 typedef HDC Display; /* HDC so it doesn't conflict with xpm lib. */
54 typedef HCURSOR Cursor;
56 #define No_Cursor (0)
58 #define XChar2b wchar_t
60 /* Dealing with bits of wchar_t as if they were an XChar2b. */
61 #define STORE_XCHAR2B(chp, byte1, byte2) \
62 ((*(chp)) = ((XChar2b)((((byte1) & 0x00ff) << 8) | ((byte2) & 0x00ff))))
64 #define XCHAR2B_BYTE1(chp) \
65 (((*(chp)) & 0xff00) >> 8)
67 #define XCHAR2B_BYTE2(chp) \
68 ((*(chp)) & 0x00ff)
71 /* Windows equivalent of XImage. */
72 typedef struct _XImage
74 unsigned char * data;
75 BITMAPINFO info;
76 /* Optional RGBQUAD array for palette follows (see BITMAPINFO docs). */
77 } XImage;
79 #define FACE_DEFAULT (~0)
81 extern HINSTANCE hinst;
82 extern HINSTANCE hprevinst;
83 extern LPSTR lpCmdLine;
84 extern int nCmdShow;
86 /* Bit Gravity */
88 #define ForgetGravity 0
89 #define NorthWestGravity 1
90 #define NorthGravity 2
91 #define NorthEastGravity 3
92 #define WestGravity 4
93 #define CenterGravity 5
94 #define EastGravity 6
95 #define SouthWestGravity 7
96 #define SouthGravity 8
97 #define SouthEastGravity 9
98 #define StaticGravity 10
100 #define NoValue 0x0000
101 #define XValue 0x0001
102 #define YValue 0x0002
103 #define WidthValue 0x0004
104 #define HeightValue 0x0008
105 #define AllValues 0x000F
106 #define XNegative 0x0010
107 #define YNegative 0x0020
109 #define USPosition (1L << 0) /* user specified x, y */
110 #define USSize (1L << 1) /* user specified width, height */
112 #define PPosition (1L << 2) /* program specified position */
113 #define PSize (1L << 3) /* program specified size */
114 #define PMinSize (1L << 4) /* program specified minimum size */
115 #define PMaxSize (1L << 5) /* program specified maximum size */
116 #define PResizeInc (1L << 6) /* program specified resize increments */
117 #define PAspect (1L << 7) /* program specified min and max aspect ratios */
118 #define PBaseSize (1L << 8) /* program specified base for incrementing */
119 #define PWinGravity (1L << 9) /* program specified window gravity */
121 extern int XParseGeometry (char *, int *, int *, unsigned *, unsigned *);
124 typedef struct {
125 int x, y;
126 unsigned width, height;
127 } XRectangle;
129 #define NativeRectangle RECT
131 #define CONVERT_TO_XRECT(xr,nr) \
132 ((xr).x = (nr).left, \
133 (xr).y = (nr).top, \
134 (xr).width = ((nr).right - (nr).left), \
135 (xr).height = ((nr).bottom - (nr).top))
137 #define CONVERT_FROM_XRECT(xr,nr) \
138 ((nr).left = (xr).x, \
139 (nr).top = (xr).y, \
140 (nr).right = ((xr).x + (xr).width), \
141 (nr).bottom = ((xr).y + (xr).height))
143 #define STORE_NATIVE_RECT(nr,x,y,width,height) \
144 ((nr).left = (x), \
145 (nr).top = (y), \
146 (nr).right = ((nr).left + (width)), \
147 (nr).bottom = ((nr).top + (height)))
150 #endif /* EMACS_W32GUI_H */
152 /* arch-tag: 9172e5fb-45a5-4684-afd9-ca0e81324604
153 (do not change this comment) */