Mercurial > hg > xemacs-beta
comparison src/console-msw-impl.h @ 5120:d1247f3cc363 ben-lisp-object
latest work on lisp-object workspace;
more changes eliminating LCRECORD in place of LISP_OBJECT;
now compiles and runs.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 28 Dec 2009 01:15:52 -0600 |
parents | e0db3c197671 |
children | 2a462149bd6a |
comparison
equal
deleted
inserted
replaced
5119:d877c14318b3 | 5120:d1247f3cc363 |
---|---|
55 * Printer settings, aka devmode | 55 * Printer settings, aka devmode |
56 */ | 56 */ |
57 | 57 |
58 struct Lisp_Devmode | 58 struct Lisp_Devmode |
59 { | 59 { |
60 struct LCRECORD_HEADER header; | 60 LISP_OBJECT_HEADER header; |
61 | 61 |
62 /* Pointer to the DEVMODE structure */ | 62 /* Pointer to the DEVMODE structure */ |
63 DEVMODEW *devmode; | 63 DEVMODEW *devmode; |
64 | 64 |
65 /* Full printer name. It can be longer than devmode->dmDeviceName | 65 /* Full printer name. It can be longer than devmode->dmDeviceName |
80 */ | 80 */ |
81 | 81 |
82 struct mswindows_device | 82 struct mswindows_device |
83 { | 83 { |
84 #ifdef NEW_GC | 84 #ifdef NEW_GC |
85 struct lrecord_header header; | 85 LISP_OBJECT_HEADER header; |
86 #endif /* NEW_GC */ | 86 #endif /* NEW_GC */ |
87 Lisp_Object fontlist; /* List of (STRING . FIXED-P), device fonts */ | 87 Lisp_Object fontlist; /* List of (STRING . FIXED-P), device fonts */ |
88 HDC hcdc; /* Compatible DC */ | 88 HDC hcdc; /* Compatible DC */ |
89 DWORD update_tick; /* Used when device is modified through | 89 DWORD update_tick; /* Used when device is modified through |
90 Windows messages, see WM_DISPLAYCHANGE | 90 Windows messages, see WM_DISPLAYCHANGE |
108 #define DEVICE_MSWINDOWS_UPDATE_TICK(d) (DEVICE_MSWINDOWS_DATA (d)->update_tick) | 108 #define DEVICE_MSWINDOWS_UPDATE_TICK(d) (DEVICE_MSWINDOWS_DATA (d)->update_tick) |
109 | 109 |
110 struct msprinter_device | 110 struct msprinter_device |
111 { | 111 { |
112 #ifdef NEW_GC | 112 #ifdef NEW_GC |
113 struct lrecord_header header; | 113 LISP_OBJECT_HEADER header; |
114 #endif /* NEW_GC */ | 114 #endif /* NEW_GC */ |
115 HDC hdc, hcdc; /* Printer and the comp. DCs */ | 115 HDC hdc, hcdc; /* Printer and the comp. DCs */ |
116 HANDLE hprinter; | 116 HANDLE hprinter; |
117 Lisp_Object name; | 117 Lisp_Object name; |
118 Lisp_Object devmode; | 118 Lisp_Object devmode; |
166 */ | 166 */ |
167 | 167 |
168 struct mswindows_frame | 168 struct mswindows_frame |
169 { | 169 { |
170 #ifdef NEW_GC | 170 #ifdef NEW_GC |
171 struct lrecord_header header; | 171 LISP_OBJECT_HEADER header; |
172 #endif /* NEW_GC */ | 172 #endif /* NEW_GC */ |
173 | 173 |
174 /* win32 window handle */ | 174 /* win32 window handle */ |
175 HWND hwnd; | 175 HWND hwnd; |
176 | 176 |
316 #define XM_MAPFRAME (WM_USER + 102) | 316 #define XM_MAPFRAME (WM_USER + 102) |
317 #define XM_UNMAPFRAME (WM_USER + 103) | 317 #define XM_UNMAPFRAME (WM_USER + 103) |
318 | 318 |
319 struct mswindows_dialog_id | 319 struct mswindows_dialog_id |
320 { | 320 { |
321 struct LCRECORD_HEADER header; | 321 LISP_OBJECT_HEADER header; |
322 | 322 |
323 Lisp_Object frame; | 323 Lisp_Object frame; |
324 Lisp_Object callbacks; | 324 Lisp_Object callbacks; |
325 HWND hwnd; | 325 HWND hwnd; |
326 }; | 326 }; |