Mercurial > hg > xemacs-beta

comparison src/device-msw.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 90d73dddcdc4
children c42ec1d1cded
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
37 #include "events.h" 37 #include "events.h"
38 #include "faces.h" 38 #include "faces.h"
39 #include "frame.h" 39 #include "frame.h"
40 #include "sysdep.h" 40 #include "sysdep.h"
41 41
42 #ifndef __CYGWIN32__
43 #include <commctrl.h>
44 #endif
45
42 /* win32 DDE management library globals */ 46 /* win32 DDE management library globals */
43 DWORD mswindows_dde_mlid; 47 DWORD mswindows_dde_mlid;
44 HSZ mswindows_dde_service; 48 HSZ mswindows_dde_service;
45 HSZ mswindows_dde_topic_system; 49 HSZ mswindows_dde_topic_system;
46 HSZ mswindows_dde_item_open; 50 HSZ mswindows_dde_item_open;
47 51
48 #ifdef __CYGWIN32__
49 typedef struct tagINITCOMMONCONTROLSEX
50 {
51 DWORD dwSize;
52 DWORD dwICC;
53 } INITCOMMONCONTROLSEX;
54 WINAPI BOOL InitCommonControlsEx (INITCOMMONCONTROLSEX*);
55 #else
56 #include <commctrl.h>
57 #endif
58
59 /* Control conversion of upper case file names to lower case. 52 /* Control conversion of upper case file names to lower case.
60 nil means no, t means yes. */ 53 nil means no, t means yes. */
61 Lisp_Object Vmswindows_downcase_file_names; 54 Lisp_Object Vmswindows_downcase_file_names;
62 55
63 /* Control whether stat() attempts to determine file type and link count 56 /* Control whether stat() attempts to determine file type and link count
71 mswindows_init_device (struct device *d, Lisp_Object props) 64 mswindows_init_device (struct device *d, Lisp_Object props)
72 { 65 {
73 WNDCLASSEX wc; 66 WNDCLASSEX wc;
74 HWND desktop; 67 HWND desktop;
75 HDC hdc; 68 HDC hdc;
76 #ifdef HAVE_TOOLBARS
77 INITCOMMONCONTROLSEX iccex;
78 xzero(iccex);
79 #endif
80 69
81 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1; 70 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1;
82 init_baud_rate (d); 71 init_baud_rate (d);
83 init_one_device (d); 72 init_one_device (d);
84 73
117 wc.lpszClassName = XEMACS_CLASS; 106 wc.lpszClassName = XEMACS_CLASS;
118 wc.hIconSm = LoadImage (GetModuleHandle (NULL), XEMACS_CLASS, 107 wc.hIconSm = LoadImage (GetModuleHandle (NULL), XEMACS_CLASS,
119 IMAGE_ICON, 16, 16, 0); 108 IMAGE_ICON, 16, 16, 0);
120 RegisterClassEx (&wc); 109 RegisterClassEx (&wc);
121 #ifdef HAVE_TOOLBARS 110 #ifdef HAVE_TOOLBARS
122 iccex.dwSize = sizeof (iccex);
123 iccex.dwICC = ICC_BAR_CLASSES;
124 #ifdef __CYGWIN32__
125 InitCommonControls (); 111 InitCommonControls ();
126 #else
127 InitCommonControlsEx (&iccex);
128 #endif
129 #endif 112 #endif
130 } 113 }
131 114
132 static void 115 static void
133 mswindows_finish_init_device (struct device *d, Lisp_Object props) 116 mswindows_finish_init_device (struct device *d, Lisp_Object props)