Mercurial > hg > xemacs-beta

comparison src/dialog-msw.c @ 5920:0f2338afbabf cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minimum necessary to get started: sufficient to compile OK, run -nw, but not with window
author Henry Thompson <ht@markup.co.uk>
date Mon, 21 Apr 2014 11:42:50 +0100
parents 56144c8593a8
children 68639fb08af8
comparison
equal deleted inserted replaced
5919:2800105fcc9f 5920:0f2338afbabf
192 dialog_proc (HWND hwnd, UINT msg, WPARAM w_param, LPARAM l_param) 192 dialog_proc (HWND hwnd, UINT msg, WPARAM w_param, LPARAM l_param)
193 { 193 {
194 switch (msg) 194 switch (msg)
195 { 195 {
196 case WM_INITDIALOG: 196 case WM_INITDIALOG:
197 qxeSetWindowLong (hwnd, DWL_USER, l_param); 197 qxeSetWindowLongPtr (hwnd, DWLP_USER, l_param);
198 break; 198 break;
199 199
200 case WM_DESTROY: 200 case WM_DESTROY:
201 { 201 {
202 Lisp_Object data; 202 Lisp_Object data;
203 data = GET_LISP_FROM_VOID ((void *) qxeGetWindowLong (hwnd, DWL_USER)); 203 data = GET_LISP_FROM_VOID (qxeGetWindowLongPtr (hwnd, DWLP_USER));
204 Vdialog_data_list = delq_no_quit (data, Vdialog_data_list); 204 Vdialog_data_list = delq_no_quit (data, Vdialog_data_list);
205 } 205 }
206 break; 206 break;
207 207
208 case WM_COMMAND: 208 case WM_COMMAND:
209 { 209 {
210 Lisp_Object fn, arg, data; 210 Lisp_Object fn, arg, data;
211 struct mswindows_dialog_id *did; 211 struct mswindows_dialog_id *did;
212 212
213 data = GET_LISP_FROM_VOID ((void *) qxeGetWindowLong (hwnd, DWL_USER)); 213 data = GET_LISP_FROM_VOID ( qxeGetWindowLongPtr (hwnd, DWLP_USER));
214 did = XMSWINDOWS_DIALOG_ID (data); 214 did = XMSWINDOWS_DIALOG_ID (data);
215 if (w_param != IDCANCEL) /* user pressed escape */ 215 if (w_param != IDCANCEL) /* user pressed escape */
216 { 216 {
217 assert (w_param >= ID_ITEM_BIAS 217 assert (w_param >= ID_ITEM_BIAS
218 && (EMACS_INT) w_param 218 && (EMACS_INT) w_param