fe8abbf4 |
1 | /* |
2 | * wincfg.c - the Windows-specific parts of the PuTTY configuration |
3 | * box. |
4 | */ |
5 | |
6 | #include <windows.h> |
7 | |
8 | #include <assert.h> |
9 | #include <stdlib.h> |
10 | |
11 | #include "putty.h" |
12 | #include "dialog.h" |
13 | #include "storage.h" |
14 | |
15 | static void about_handler(union control *ctrl, void *dlg, |
16 | void *data, int event) |
17 | { |
18 | HWND *hwndp = (HWND *)ctrl->generic.context.p; |
19 | |
20 | if (event == EVENT_ACTION) { |
21 | modal_about_box(*hwndp); |
22 | } |
23 | } |
24 | |
25 | static void help_handler(union control *ctrl, void *dlg, |
26 | void *data, int event) |
27 | { |
28 | HWND *hwndp = (HWND *)ctrl->generic.context.p; |
29 | |
30 | if (event == EVENT_ACTION) { |
31 | show_help(*hwndp); |
32 | } |
33 | } |
34 | |
35 | void win_setup_config_box(struct controlbox *b, HWND *hwndp, int has_help, |
36 | int midsession) |
37 | { |
38 | struct controlset *s; |
39 | union control *c; |
f6f450e2 |
40 | char *str; |
fe8abbf4 |
41 | |
42 | if (!midsession) { |
43 | /* |
44 | * Add the About and Help buttons to the standard panel. |
45 | */ |
46 | s = ctrl_getset(b, "", "", ""); |
47 | c = ctrl_pushbutton(s, "About", 'a', HELPCTX(no_help), |
48 | about_handler, P(hwndp)); |
49 | c->generic.column = 0; |
50 | if (has_help) { |
51 | c = ctrl_pushbutton(s, "Help", 'h', HELPCTX(no_help), |
52 | help_handler, P(hwndp)); |
53 | c->generic.column = 1; |
54 | } |
55 | } |
56 | |
57 | /* |
1d0d4a3b |
58 | * Full-screen mode is a Windows peculiarity; hence |
59 | * scrollbar_in_fullscreen is as well. |
60 | */ |
61 | s = ctrl_getset(b, "Window", "scrollback", |
62 | "Control the scrollback in the window"); |
63 | ctrl_checkbox(s, "Display scrollbar in full screen mode", 'i', |
64 | HELPCTX(window_scrollback), |
65 | dlg_stdcheckbox_handler, |
66 | I(offsetof(Config,scrollbar_in_fullscreen))); |
67 | /* |
68 | * Really this wants to go just after `Display scrollbar'. See |
69 | * if we can find that control, and do some shuffling. |
70 | */ |
71 | { |
72 | int i; |
73 | for (i = 0; i < s->ncontrols; i++) { |
74 | c = s->ctrls[i]; |
75 | if (c->generic.type == CTRL_CHECKBOX && |
76 | c->generic.context.i == offsetof(Config,scrollbar)) { |
77 | /* |
78 | * Control i is the scrollbar checkbox. |
79 | * Control s->ncontrols-1 is the scrollbar-in-FS one. |
80 | */ |
81 | if (i < s->ncontrols-2) { |
82 | c = s->ctrls[s->ncontrols-1]; |
83 | memmove(s->ctrls+i+2, s->ctrls+i+1, |
84 | (s->ncontrols-i-2)*sizeof(union control *)); |
85 | s->ctrls[i+1] = c; |
86 | } |
87 | break; |
88 | } |
89 | } |
90 | } |
91 | |
92 | /* |
fe8abbf4 |
93 | * Windows has the AltGr key, which has various Windows- |
94 | * specific options. |
95 | */ |
96 | s = ctrl_getset(b, "Terminal/Keyboard", "features", |
97 | "Enable extra keyboard features:"); |
98 | ctrl_checkbox(s, "AltGr acts as Compose key", 't', |
99 | HELPCTX(keyboard_compose), |
100 | dlg_stdcheckbox_handler, I(offsetof(Config,compose_key))); |
101 | ctrl_checkbox(s, "Control-Alt is different from AltGr", 'd', |
102 | HELPCTX(keyboard_ctrlalt), |
103 | dlg_stdcheckbox_handler, I(offsetof(Config,ctrlaltkeys))); |
104 | |
105 | /* |
85f6b361 |
106 | * Windows allows an arbitrary .WAV to be played as a bell, and |
107 | * also the use of the PC speaker. For this we must search the |
108 | * existing controlset for the radio-button set controlling the |
109 | * `beep' option, and add extra buttons to it. |
fe8abbf4 |
110 | * |
111 | * Note that although this _looks_ like a hideous hack, it's |
112 | * actually all above board. The well-defined interface to the |
113 | * per-platform dialog box code is the _data structures_ `union |
114 | * control', `struct controlset' and so on; so code like this |
115 | * that reaches into those data structures and changes bits of |
116 | * them is perfectly legitimate and crosses no boundaries. All |
117 | * the ctrl_* routines that create most of the controls are |
118 | * convenient shortcuts provided on the cross-platform side of |
119 | * the interface, and template creation code is under no actual |
120 | * obligation to use them. |
121 | */ |
122 | s = ctrl_getset(b, "Terminal/Bell", "style", "Set the style of bell"); |
123 | { |
124 | int i; |
125 | for (i = 0; i < s->ncontrols; i++) { |
126 | c = s->ctrls[i]; |
127 | if (c->generic.type == CTRL_RADIO && |
128 | c->generic.context.i == offsetof(Config, beep)) { |
129 | assert(c->generic.handler == dlg_stdradiobutton_handler); |
85f6b361 |
130 | c->radio.nbuttons += 2; |
fe8abbf4 |
131 | c->radio.buttons = |
3d88e64d |
132 | sresize(c->radio.buttons, c->radio.nbuttons, char *); |
fe8abbf4 |
133 | c->radio.buttons[c->radio.nbuttons-1] = |
134 | dupstr("Play a custom sound file"); |
85f6b361 |
135 | c->radio.buttons[c->radio.nbuttons-2] = |
136 | dupstr("Beep using the PC speaker"); |
fe8abbf4 |
137 | c->radio.buttondata = |
3d88e64d |
138 | sresize(c->radio.buttondata, c->radio.nbuttons, intorptr); |
fe8abbf4 |
139 | c->radio.buttondata[c->radio.nbuttons-1] = I(BELL_WAVEFILE); |
85f6b361 |
140 | c->radio.buttondata[c->radio.nbuttons-2] = I(BELL_PCSPEAKER); |
fe8abbf4 |
141 | if (c->radio.shortcuts) { |
142 | c->radio.shortcuts = |
3d88e64d |
143 | sresize(c->radio.shortcuts, c->radio.nbuttons, char); |
fe8abbf4 |
144 | c->radio.shortcuts[c->radio.nbuttons-1] = NO_SHORTCUT; |
85f6b361 |
145 | c->radio.shortcuts[c->radio.nbuttons-2] = NO_SHORTCUT; |
fe8abbf4 |
146 | } |
147 | break; |
148 | } |
149 | } |
150 | } |
151 | ctrl_filesel(s, "Custom sound file to play as a bell:", NO_SHORTCUT, |
152 | FILTER_WAVE_FILES, FALSE, "Select bell sound file", |
153 | HELPCTX(bell_style), |
154 | dlg_stdfilesel_handler, I(offsetof(Config, bell_wavefile))); |
155 | |
156 | /* |
157 | * While we've got this box open, taskbar flashing on a bell is |
158 | * also Windows-specific. |
159 | */ |
160 | ctrl_radiobuttons(s, "Taskbar/caption indication on bell:", 'i', 3, |
161 | HELPCTX(bell_taskbar), |
162 | dlg_stdradiobutton_handler, |
163 | I(offsetof(Config, beep_ind)), |
164 | "Disabled", I(B_IND_DISABLED), |
165 | "Flashing", I(B_IND_FLASH), |
166 | "Steady", I(B_IND_STEADY), NULL); |
167 | |
168 | /* |
169 | * The sunken-edge border is a Windows GUI feature. |
170 | */ |
171 | s = ctrl_getset(b, "Window/Appearance", "border", |
172 | "Adjust the window border"); |
173 | ctrl_checkbox(s, "Sunken-edge border (slightly thicker)", 's', |
174 | HELPCTX(appearance_border), |
175 | dlg_stdcheckbox_handler, I(offsetof(Config,sunken_edge))); |
176 | |
177 | /* |
178 | * Cyrillic Lock is a horrid misfeature even on Windows, and |
179 | * the least we can do is ensure it never makes it to any other |
180 | * platform (at least unless someone fixes it!). |
181 | */ |
182 | s = ctrl_getset(b, "Window/Translation", "input", |
183 | "Enable character set translation on input data"); |
184 | ctrl_checkbox(s, "Caps Lock acts as Cyrillic switch", 's', |
185 | HELPCTX(translation_cyrillic), |
186 | dlg_stdcheckbox_handler, |
187 | I(offsetof(Config,xlat_capslockcyr))); |
188 | |
189 | /* |
190 | * Windows has the weird OEM font mode, which gives us some |
191 | * additional options when working with line-drawing |
192 | * characters. |
193 | */ |
f6f450e2 |
194 | str = dupprintf("Adjust how %s displays line drawing characters", appname); |
195 | s = ctrl_getset(b, "Window/Translation", "linedraw", str); |
196 | sfree(str); |
fe8abbf4 |
197 | { |
198 | int i; |
199 | for (i = 0; i < s->ncontrols; i++) { |
200 | c = s->ctrls[i]; |
201 | if (c->generic.type == CTRL_RADIO && |
202 | c->generic.context.i == offsetof(Config, vtmode)) { |
203 | assert(c->generic.handler == dlg_stdradiobutton_handler); |
3900c2d6 |
204 | c->radio.nbuttons += 3; |
fe8abbf4 |
205 | c->radio.buttons = |
3d88e64d |
206 | sresize(c->radio.buttons, c->radio.nbuttons, char *); |
3900c2d6 |
207 | c->radio.buttons[c->radio.nbuttons-3] = |
208 | dupstr("Font has XWindows encoding"); |
fe8abbf4 |
209 | c->radio.buttons[c->radio.nbuttons-2] = |
210 | dupstr("Use font in both ANSI and OEM modes"); |
211 | c->radio.buttons[c->radio.nbuttons-1] = |
212 | dupstr("Use font in OEM mode only"); |
213 | c->radio.buttondata = |
3d88e64d |
214 | sresize(c->radio.buttondata, c->radio.nbuttons, intorptr); |
3900c2d6 |
215 | c->radio.buttondata[c->radio.nbuttons-3] = I(VT_XWINDOWS); |
fe8abbf4 |
216 | c->radio.buttondata[c->radio.nbuttons-2] = I(VT_OEMANSI); |
217 | c->radio.buttondata[c->radio.nbuttons-1] = I(VT_OEMONLY); |
218 | if (!c->radio.shortcuts) { |
219 | int j; |
3d88e64d |
220 | c->radio.shortcuts = snewn(c->radio.nbuttons, char); |
fe8abbf4 |
221 | for (j = 0; j < c->radio.nbuttons; j++) |
222 | c->radio.shortcuts[j] = NO_SHORTCUT; |
223 | } else { |
3d88e64d |
224 | c->radio.shortcuts = sresize(c->radio.shortcuts, |
225 | c->radio.nbuttons, char); |
fe8abbf4 |
226 | } |
3900c2d6 |
227 | c->radio.shortcuts[c->radio.nbuttons-3] = 'x'; |
fe8abbf4 |
228 | c->radio.shortcuts[c->radio.nbuttons-2] = 'b'; |
229 | c->radio.shortcuts[c->radio.nbuttons-1] = 'e'; |
230 | break; |
231 | } |
232 | } |
233 | } |
234 | |
235 | /* |
236 | * RTF paste is Windows-specific. |
237 | */ |
238 | s = ctrl_getset(b, "Window/Selection", "trans", |
239 | "Translation of pasted characters"); |
240 | ctrl_checkbox(s, "Paste to clipboard in RTF as well as plain text", 'f', |
241 | HELPCTX(selection_rtf), |
242 | dlg_stdcheckbox_handler, I(offsetof(Config,rtf_paste))); |
243 | |
244 | /* |
245 | * Windows often has no middle button, so we supply a selection |
246 | * mode in which the more critical Paste action is available on |
247 | * the right button instead. |
248 | */ |
249 | s = ctrl_getset(b, "Window/Selection", "mouse", |
250 | "Control use of mouse"); |
251 | ctrl_radiobuttons(s, "Action of mouse buttons:", NO_SHORTCUT, 1, |
252 | HELPCTX(selection_buttons), |
253 | dlg_stdradiobutton_handler, |
254 | I(offsetof(Config, mouse_is_xterm)), |
255 | "Windows (Right pastes, Middle extends)", 'w', I(0), |
256 | "xterm (Right extends, Middle pastes)", 'x', I(1), NULL); |
257 | /* |
258 | * This really ought to go at the _top_ of its box, not the |
259 | * bottom, so we'll just do some shuffling now we've set it |
260 | * up... |
261 | */ |
262 | c = s->ctrls[s->ncontrols-1]; /* this should be the new control */ |
263 | memmove(s->ctrls+1, s->ctrls, (s->ncontrols-1)*sizeof(union control *)); |
264 | s->ctrls[0] = c; |
265 | |
266 | /* |
267 | * Logical palettes don't even make sense anywhere except Windows. |
268 | */ |
269 | s = ctrl_getset(b, "Window/Colours", "general", |
270 | "General options for colour usage"); |
271 | ctrl_checkbox(s, "Attempt to use logical palettes", 'l', |
272 | HELPCTX(colours_logpal), |
273 | dlg_stdcheckbox_handler, I(offsetof(Config,try_palette))); |
274 | |
275 | /* |
276 | * Resize-by-changing-font is a Windows insanity. |
277 | */ |
278 | s = ctrl_getset(b, "Window", "size", "Set the size of the window"); |
279 | ctrl_radiobuttons(s, "When window is resized:", 'z', 1, |
280 | HELPCTX(window_resize), |
281 | dlg_stdradiobutton_handler, |
282 | I(offsetof(Config, resize_action)), |
283 | "Change the number of rows and columns", I(RESIZE_TERM), |
284 | "Change the size of the font", I(RESIZE_FONT), |
285 | "Change font size only when maximised", I(RESIZE_EITHER), |
286 | "Forbid resizing completely", I(RESIZE_DISABLED), NULL); |
287 | |
288 | /* |
289 | * Most of the Window/Behaviour stuff is there to mimic Windows |
290 | * conventions which PuTTY can optionally disregard. Hence, |
291 | * most of these options are Windows-specific. |
292 | */ |
293 | s = ctrl_getset(b, "Window/Behaviour", "main", NULL); |
294 | ctrl_checkbox(s, "Window closes on ALT-F4", '4', |
295 | HELPCTX(behaviour_altf4), |
296 | dlg_stdcheckbox_handler, I(offsetof(Config,alt_f4))); |
297 | ctrl_checkbox(s, "System menu appears on ALT-Space", 'y', |
298 | HELPCTX(behaviour_altspace), |
299 | dlg_stdcheckbox_handler, I(offsetof(Config,alt_space))); |
300 | ctrl_checkbox(s, "System menu appears on ALT alone", 'l', |
301 | HELPCTX(behaviour_altonly), |
302 | dlg_stdcheckbox_handler, I(offsetof(Config,alt_only))); |
303 | ctrl_checkbox(s, "Ensure window is always on top", 'e', |
304 | HELPCTX(behaviour_alwaysontop), |
305 | dlg_stdcheckbox_handler, I(offsetof(Config,alwaysontop))); |
306 | ctrl_checkbox(s, "Full screen on Alt-Enter", 'f', |
307 | HELPCTX(behaviour_altenter), |
308 | dlg_stdcheckbox_handler, |
309 | I(offsetof(Config,fullscreenonaltenter))); |
310 | } |