]>
Commit | Line | Data |
---|---|---|
1c1af145 | 1 | /* |
2 | * gtkcfg.c - the GTK-specific parts of the PuTTY configuration | |
3 | * box. | |
4 | */ | |
5 | ||
6 | #include <assert.h> | |
7 | #include <stdlib.h> | |
8 | ||
9 | #include "putty.h" | |
10 | #include "dialog.h" | |
11 | #include "storage.h" | |
12 | ||
13 | static void about_handler(union control *ctrl, void *dlg, | |
14 | void *data, int event) | |
15 | { | |
16 | if (event == EVENT_ACTION) { | |
17 | about_box(ctrl->generic.context.p); | |
18 | } | |
19 | } | |
20 | ||
21 | void gtk_setup_config_box(struct controlbox *b, int midsession, void *win) | |
22 | { | |
23 | struct controlset *s, *s2; | |
24 | union control *c; | |
25 | int i; | |
26 | ||
27 | if (!midsession) { | |
28 | /* | |
29 | * Add the About button to the standard panel. | |
30 | */ | |
31 | s = ctrl_getset(b, "", "", ""); | |
32 | c = ctrl_pushbutton(s, "About", 'a', HELPCTX(no_help), | |
33 | about_handler, P(win)); | |
34 | c->generic.column = 0; | |
35 | } | |
36 | ||
37 | /* | |
38 | * GTK makes it rather easier to put the scrollbar on the left | |
39 | * than Windows does! | |
40 | */ | |
41 | s = ctrl_getset(b, "Window", "scrollback", | |
42 | "Control the scrollback in the window"); | |
43 | ctrl_checkbox(s, "Scrollbar on left", 'l', | |
44 | HELPCTX(no_help), | |
45 | dlg_stdcheckbox_handler, | |
46 | I(offsetof(Config,scrollbar_on_left))); | |
47 | /* | |
48 | * Really this wants to go just after `Display scrollbar'. See | |
49 | * if we can find that control, and do some shuffling. | |
50 | */ | |
51 | for (i = 0; i < s->ncontrols; i++) { | |
52 | c = s->ctrls[i]; | |
53 | if (c->generic.type == CTRL_CHECKBOX && | |
54 | c->generic.context.i == offsetof(Config,scrollbar)) { | |
55 | /* | |
56 | * Control i is the scrollbar checkbox. | |
57 | * Control s->ncontrols-1 is the scrollbar-on-left one. | |
58 | */ | |
59 | if (i < s->ncontrols-2) { | |
60 | c = s->ctrls[s->ncontrols-1]; | |
61 | memmove(s->ctrls+i+2, s->ctrls+i+1, | |
62 | (s->ncontrols-i-2)*sizeof(union control *)); | |
63 | s->ctrls[i+1] = c; | |
64 | } | |
65 | break; | |
66 | } | |
67 | } | |
68 | ||
69 | /* | |
70 | * X requires three more fonts: bold, wide, and wide-bold; also | |
71 | * we need the fiddly shadow-bold-offset control. This would | |
72 | * make the Window/Appearance panel rather unwieldy and large, | |
73 | * so I think the sensible thing here is to _move_ this | |
74 | * controlset into a separate Window/Fonts panel! | |
75 | */ | |
76 | s2 = ctrl_getset(b, "Window/Appearance", "font", | |
77 | "Font settings"); | |
78 | /* Remove this controlset from b. */ | |
79 | for (i = 0; i < b->nctrlsets; i++) { | |
80 | if (b->ctrlsets[i] == s2) { | |
81 | memmove(b->ctrlsets+i, b->ctrlsets+i+1, | |
82 | (b->nctrlsets-i-1) * sizeof(*b->ctrlsets)); | |
83 | b->nctrlsets--; | |
84 | break; | |
85 | } | |
86 | } | |
87 | ctrl_settitle(b, "Window/Fonts", "Options controlling font usage"); | |
88 | s = ctrl_getset(b, "Window/Fonts", "font", | |
89 | "Fonts for displaying non-bold text"); | |
90 | ctrl_fontsel(s, "Font used for ordinary text", 'f', | |
91 | HELPCTX(no_help), | |
92 | dlg_stdfontsel_handler, I(offsetof(Config,font))); | |
93 | ctrl_fontsel(s, "Font used for wide (CJK) text", 'w', | |
94 | HELPCTX(no_help), | |
95 | dlg_stdfontsel_handler, I(offsetof(Config,widefont))); | |
96 | s = ctrl_getset(b, "Window/Fonts", "fontbold", | |
97 | "Fonts for displaying bolded text"); | |
98 | ctrl_fontsel(s, "Font used for bolded text", 'b', | |
99 | HELPCTX(no_help), | |
100 | dlg_stdfontsel_handler, I(offsetof(Config,boldfont))); | |
101 | ctrl_fontsel(s, "Font used for bold wide text", 'i', | |
102 | HELPCTX(no_help), | |
103 | dlg_stdfontsel_handler, I(offsetof(Config,wideboldfont))); | |
104 | ctrl_checkbox(s, "Use shadow bold instead of bold fonts", 'u', | |
105 | HELPCTX(no_help), | |
106 | dlg_stdcheckbox_handler, | |
107 | I(offsetof(Config,shadowbold))); | |
108 | ctrl_text(s, "(Note that bold fonts or shadow bolding are only" | |
109 | " used if you have not requested bolding to be done by" | |
110 | " changing the text colour.)", | |
111 | HELPCTX(no_help)); | |
112 | ctrl_editbox(s, "Horizontal offset for shadow bold:", 'z', 20, | |
113 | HELPCTX(no_help), dlg_stdeditbox_handler, | |
114 | I(offsetof(Config,shadowboldoffset)), I(-1)); | |
115 | ||
116 | /* | |
117 | * Markus Kuhn feels, not totally unreasonably, that it's good | |
118 | * for all applications to shift into UTF-8 mode if they notice | |
119 | * that they've been started with a LANG setting dictating it, | |
120 | * so that people don't have to keep remembering a separate | |
121 | * UTF-8 option for every application they use. Therefore, | |
122 | * here's an override option in the Translation panel. | |
123 | */ | |
124 | s = ctrl_getset(b, "Window/Translation", "trans", | |
125 | "Character set translation on received data"); | |
126 | ctrl_checkbox(s, "Override with UTF-8 if locale says so", 'l', | |
127 | HELPCTX(translation_utf8_override), | |
128 | dlg_stdcheckbox_handler, | |
129 | I(offsetof(Config,utf8_override))); | |
130 | ||
131 | if (!midsession) { | |
132 | /* | |
133 | * Allow the user to specify the window class as part of the saved | |
134 | * configuration, so that they can have their window manager treat | |
135 | * different kinds of PuTTY and pterm differently if they want to. | |
136 | */ | |
137 | s = ctrl_getset(b, "Window/Behaviour", "x11", | |
138 | "X Window System settings"); | |
139 | ctrl_editbox(s, "Window class name:", 'z', 50, | |
140 | HELPCTX(no_help), dlg_stdeditbox_handler, | |
141 | I(offsetof(Config,winclass)), | |
142 | I(sizeof(((Config *)0)->winclass))); | |
143 | } | |
144 | } |