30 |
|
|
31 |
#define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
#define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
32 |
|
|
33 |
|
/* Default system colors from the Display Control Panel settings. */ |
34 |
|
#define SYSTEM_DEFAULT_RESOURCES \ |
35 |
|
"emacs.foreground:SystemWindowText\0" \ |
36 |
|
"emacs.background:SystemWindow\0" \ |
37 |
|
"emacs.tooltip.attributeForeground:SystemInfoText\0" \ |
38 |
|
"emacs.tooltip.attributeBackground:SystemInfoWindow\0" \ |
39 |
|
"emacs.tool-bar.attributeForeground:SystemButtonText\0" \ |
40 |
|
"emacs.tool-bar.attributeBackground:SystemButtonFace\0" \ |
41 |
|
"emacs.menu.attributeForeground:SystemMenuText\0" \ |
42 |
|
"emacs.menu.attributeBackground:SystemMenu\0" \ |
43 |
|
"emacs.scroll-bar.attributeForeground:SystemScrollbar" |
44 |
|
|
45 |
|
/* Other possibilities for default faces: |
46 |
|
|
47 |
|
region: Could use SystemHilight, but interferes with our ability to |
48 |
|
see most syntax highlighting through the region face. |
49 |
|
|
50 |
|
modeline: Could use System(In)ActiveTitle, gradient versions (not |
51 |
|
supported on 95 and NT), but modeline is more like a status bar |
52 |
|
really (which don't appear to be configurable in Windows). |
53 |
|
|
54 |
|
highlight: Could use SystemHotTrackingColor, but it is not supported |
55 |
|
on Windows 95 or NT, and other apps only seem to use it for menus |
56 |
|
anyway. |
57 |
|
|
58 |
|
*/ |
59 |
|
|
60 |
static char * |
static char * |
61 |
w32_get_rdb_resource (rdb, resource) |
w32_get_rdb_resource (rdb, resource) |
62 |
char *rdb; |
char *rdb; |
136 |
hive = HKEY_LOCAL_MACHINE; |
hive = HKEY_LOCAL_MACHINE; |
137 |
goto trykey; |
goto trykey; |
138 |
} |
} |
139 |
return (NULL); |
|
140 |
|
/* Check if there are Windows specific defaults defined. */ |
141 |
|
return w32_get_rdb_resource (SYSTEM_DEFAULT_RESOURCES, name); |
142 |
} |
} |
143 |
return (lpvalue); |
return (lpvalue); |
144 |
} |
} |