Make some vertical room on the GUI page
[clawsker.git] / clawsker
1 #!/usr/bin/perl -w
2 #
3 # Clawsker :: A Claws Mail Tweaker
4 #
5 use strict;
6 use encoding 'utf8';
7 use Glib qw(TRUE FALSE);
8 use Gtk2 -init;
9 use POSIX qw(setlocale);
10 use Locale::gettext;
11
12 my $NAME = 'clawsker';
13 my $PREFIX = '@PREFIX@';
14 my $LIBDIR = '@LIBDIR@';
15 my $VERSION = '@VERSION@';
16 my $VERBOSE = FALSE;
17 my $CLAWSV = undef;
18 my $main_window = undef;
19
20 my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
21 $locale = "C" unless defined($locale);
22 setlocale (LC_ALL, $locale);
23 bindtextdomain ($NAME, sprintf ('%s/share/locale', $PREFIX));
24 textdomain ($NAME);
25
26 my $SHOWHINTS = FALSE;
27 $SHOWHINTS = TRUE if ($Gtk2::VERSION >= 1.040 and Gtk2->CHECK_VERSION (2, 12, 0));
28
29 sub _ {
30     my $str = shift;
31     my %par = @_;
32     my $xla = gettext ($str);
33     if (scalar(keys(%par)) > 0) {
34         foreach my $key (keys %par) {
35             $xla =~ s/\{$key\}/$par{$key}/g;
36         }
37     }
38     return $xla;
39 }
40
41 # default messages
42 %xl::s = (
43     win_title => _('Claws Mail Hidden Preferences'),
44     about => _('About...'),
45     about_title => _('Clawsker :: A Claws Mail Tweaker'),
46     about_license => _('License:'),
47     about_version => _('Version:'),
48
49     tab_colours => _('Colours'),
50     tab_behaviour => _('Behaviour'),
51     tab_gui => _('GUI'),
52     tab_other => _('Other'),
53     tab_winpos => _('Windows'),
54
55     ab_frame => _('Addressbook'),
56     mem_frame => _('Memory'),
57     msgview_frame => _('Message View'),
58     log_frame => _('Log window'),
59     dnd_frame => _('Drag \'n\' drop'),
60     ssl_frame => _('Secure Sockets Layer'),
61     msgs_frame => _('Messages'),
62     stripes_frame => _('Coloured stripes'),
63     sbar_frame => _('Scroll bars'),
64     mlist_frame => _('Message List'),
65     mview_frame => _('Message View'),
66     compo_frame => _('Compose window'),
67     netm_frame => _('NetworkManager'),
68
69     l_oth_use_dlg => _('Use detached address book edit dialogue'),
70     h_oth_use_dlg => _('If true use a separate dialogue to edit a person\'s details. Otherwise will use a form embedded in the address book\'s main window.'),
71     l_oth_max_use => _('Maximum memory for message cache (kB)'),
72     h_oth_max_use => _('The maximum amount of memory to use to cache messages, in kilobytes.'),
73     l_oth_min_time => _('Minimun time for cache elements (minutes)'),
74     h_oth_min_time => _('The minimum time in minutes to keep a cache in memory. Caches more recent than this time will not be freed, even if the memory usage is too high.'),
75     l_oth_use_netm => _('Use NetworkManager'),
76     h_oth_use_netm => _('Use NetworkManager to switch offline automatically.'),
77     
78     l_gui_b_unread => _('Show unread messages with bold font'),
79     h_gui_b_unread => _('Show unread messages in the Message List using a bold font.'),
80     l_gui_no_markup => _('Don\'t use markup in compose window'),
81     h_gui_no_markup => _('Don\'t use bold and italic text in Compose dialogue\'s account selector.'),
82     l_gui_dot_lines => _('Use dotted lines in tree view components'),
83     h_gui_dot_lines => _('Use the old dotted line look in the main window tree views (Folder, Message and other lists) instead of the modern lineless look.'),
84     l_gui_h_scroll => _('Enable horizontal scrollbar'),
85     h_gui_h_scroll => _('Enable the horizontal scrollbar in the Message List.'),
86     l_gui_swp_from => _('Display To column instead From column in Sent folder'),
87     h_gui_swp_from => _('Display the recipient\'s email address in a To column of the Sent folder instead of the originator\'s one in a From column.'),
88     l_gui_v_scroll => _('Folder List scrollbar behaviour'),
89     h_gui_v_scroll => _('Specify the policy of vertical scrollbar of Folder List: show always, automatic or hide always.'),
90     l_gui_v_scroll_show => _('Show always'),
91     l_gui_v_scroll_auto => _('Automatic'),
92     l_gui_v_scroll_hide => _('Hide always'),
93     l_gui_strip_off => _('Coloured lines contrast'),
94     h_gui_strip_off => _('Specify the value to use when creating alternately coloured lines in tree view components. The smaller the value, the less visible the difference in the alternating colours of the lines.'),
95     l_gui_cursor_v => _('Show cursor'),
96     h_gui_cursor_v => _('Display the cursor in the Message View.'),
97     l_gui_toolbar_d => _('Detachable toolbars'),
98     h_gui_toolbar_d => _('Show handles in the toolbars.'),
99     l_gui_strip_all => _('Use stripes in all tree view components'),
100     h_gui_strip_all => _('Enable alternately coloured lines in all tree view components.'),
101     l_gui_strip_sum => _('Use stripes in Folder List and Message List'),
102     h_gui_strip_sum => _('Enable alternately coloured lines in Message List and Folder List.'),
103     l_gui_two_line_v => _('2 lines per Message List item in 3-column layout'),
104     h_gui_two_line_v => _('Spread Message List information over two lines when using the three column mode.'),
105     l_gui_margin_co => _('Show compose margin'),
106     h_gui_margin_co => _('Shows a small margin in the Compose View.'),
107     l_gui_mview_date => _('Don\'t display localized date'),
108     h_gui_mview_date => _('Toggles localization of date format in Message View'),
109
110     l_beh_hover_t => _('Drag \'n\' drop hover timeout (ms)'),
111     h_beh_hover_t => _('Time in milliseconds that will cause a folder tree to expand when the mouse cursor is held over it during drag and drop.'),
112     l_beh_dangerous => _('Don\'t confirm deletions (dangerous!)'),
113     h_beh_dangerous => _('Don\'t ask for confirmation before definitive deletion of emails.'),
114     l_beh_flowed => _('Respect format=flowed in messages'),
115     h_beh_flowed => _('Respect format=flowed on text/plain message parts. This will cause some mails to have long lines, but will fix some URLs that would otherwise be wrapped.'),
116     l_beh_parts_rw => _('Allow writable temporary files'),
117     h_beh_parts_rw => _('Saves temporary files when opening attachment with write bit set.'),
118     l_beh_skip_ssl => _('Don\'t check SSL certificates'),
119     h_beh_skip_ssl => _('Disables the verification of SSL certificates.'),
120     l_beh_up_step => _('Progress bar update step (items)'),
121     h_beh_up_step => _('Update stepping in progress bars.'),
122     l_beh_thread_a => _('Maximum age when threading by subject (days)'),
123     h_beh_thread_a => _('Number of days to include a message in a thread when using "Thread using subject in addition to standard headers".'),
124     l_beh_unsafe_ssl => _('Allow unsafe SSL certificates'),
125     h_beh_unsafe_ssl => _('Allows Claws Mail to remember multiple SSL certificates for a given server/port.'),
126     l_beh_use_utf8 => _('Force UTF-8 for broken mails'),
127     h_beh_use_utf8 => _('Use UTF-8 encoding for broken mails instead of current locale.'),
128     l_beh_warn_dnd => _('Warn on drag \'n\' drop'),
129     h_beh_warn_dnd => _('Display a confirmation dialogue on drag \'n\' drop of folders.'),
130     l_beh_out_ascii => _('Outgoing messages fallback to ASCII'),
131     h_beh_out_ascii => _('If content allows, ASCII will be used to encode outgoing messages, otherwise the user-defined encoding is enforced always.'),
132     l_beh_pp_unsel => _('Primary paste unselects selection'),
133     h_beh_pp_unsel => _('Controls how pasting using middle-click changes the selected text and insertion point.'),
134     l_beh_inline_at => _('Show inline attachments'),
135     h_beh_inline_at => _('Allows hiding inline attachments already shown in mail structure view'),
136
137     l_col_emphasis => _('X-Mailer header'),
138     h_col_emphasis => _('The colour used for the X-Mailer line when its value is Claws Mail.'),
139     l_col_log_err => _('Error messages'),
140     h_col_log_err => _('Colour for error messages in log window.'),
141     l_col_log_in => _('Server messages'),
142     h_col_log_in => _('Colour for messages received from servers in log window.'),
143     l_col_log_msg => _('Standard messages'),
144     h_col_log_msg => _('Colour for messages in log window.'),
145     l_col_log_out => _('Client messages'),
146     h_col_log_out => _('Colour for messages sent to servers in log window.'),
147     l_col_log_warn => _('Warnings'),
148     h_col_log_warn => _('Colour for warning messages in log window.'),
149
150     l_win_x => _('X position'),
151     h_win_x => _('X coordinate for window\'s top-left corner.'),
152     l_win_y => _('Y position'),
153     h_win_y => _('Y coordinate for window\'s top-left corner.'),
154     l_win_w => _('Width'),
155     h_win_w => _('Window\'s width in pixels.'),
156     l_win_h => _('Height'),
157     h_win_h => _('Window\'s height in pixels.'),
158
159     l_win_main_mx => _('Maximized'),
160     h_win_main_mx => _('Changes window maximized status.'),
161     l_win_main_fs => _('Full-screen'),
162     h_win_main_fs => _('Changes full screen status.'),
163
164     e_error => _('Error: '),
165     e_noclawsrc => _('resource file for Claws Mail was not found.'),
166     e_running => _('seems Claws Mail is currently running, close it first.'),
167     e_requireddir => _('option requires a directory name.'),
168     e_requiredfile => _('option requires a file name.'),
169     e_notadir => _('specified name is not a directory or does not exist.'),
170     e_notafile => _('specified name is not a file or does not exist.'),
171 );
172
173 # all preferences read by load_preferences
174 my %PREFS = ();
175 # values of all preferences handled by clawsker
176 my %HPVALUE = ();
177 # default config dir and file name
178 my $ALTCONFIGDIR = FALSE;
179 my $CONFIGDIR = $ENV{HOME} . '/.claws-mail/';
180 my $CONFIGRC = 'clawsrc';
181
182 # index constants for preference arrays
183 use constant NAME  => 0; # the name on the rc file
184 use constant LABEL => 1; # the label on the GUI
185 use constant DESC  => 2; # the description for the hint/help
186 use constant TYPE  => 3; # data type: bool, int, float, string, color
187 use constant CMVER => 4; # lowest Claws Mail version the feature exists
188 use constant CMDEF => 5; # default value for the preference in Claws Mail
189 use constant GUI   => 6; # GUI element
190
191 # constants for GUI spacing
192 use constant HBOX_SPC => 5;
193 use constant FRAME_SPC => 2;
194 use constant PAGE_SPC => 5;
195
196 # version functions
197
198 sub version_greater_or_equal() {
199     my ($version, $refvers) = @_;
200     my @version = split (/\./, $version);
201     my @refvers = split (/\./, $refvers);
202     while ($#version < $#refvers) {
203         push (@version, '0');
204     }
205     my $idx = 0;
206     while (($idx <= $#refvers) 
207             and (int ($version[$idx]) == int ($refvers[$idx]))) {
208         ++$idx;
209     }
210     return TRUE if (($idx > $#refvers)
211         or (int ($version[$idx]) >= int ($refvers[$idx])));
212     return FALSE;
213 }
214
215 sub get_claws_version() {
216     my @cmbin = (
217         'claws-mail',
218     );
219     my $res = "";
220     foreach my $bin (@cmbin) {
221         $_ = qx/which $bin/;
222         chomp;
223         last if ($_ ne "");
224     }
225     return "" unless ($_); # not installed
226     $_ = qx/$_ -v/;
227     chomp;
228     my @fver = split (/ /);
229     die "Invalid version string" unless ($fver[2] eq "version");
230     my @ver = split (/\./, $fver[3]);
231     $res .= "$ver[0].";
232     $res .= "$ver[1].";
233     if ($ver[2] =~ /(\d+)cvs(\d+)/) {
234         $res .= "$1.$2";
235     }
236     else {
237         $res .= "$ver[2].0";
238     }
239     return $res;
240 }
241
242 # data handlers and auxiliar functions
243
244 sub handle_bool_value {
245     my ($widget, $event, $dataref) = @_;
246     $$dataref = ($widget->get_active ())? '1': '0';
247 }
248
249 sub handle_int_value {
250     my ($widget, $event, $dataref) = @_;
251     $_ = $widget->get_text ();
252     s/^\s+//;
253     s/\s+$//;
254     if (/^[0-9]+$/) {
255         $$dataref = $_;
256         $widget->set_text ($_);
257     }
258     else {
259         $widget->set_text ($$dataref);
260     }
261 }
262
263 sub handle_string_value {
264     my ($widget, $event, $dataref) = @_;
265     $$dataref = $widget->get_text ();
266 }
267
268 sub gdk_color_from_str {
269     my ($str) = @_;
270     my ($rr, $gg, $bb) = (0, 0 ,0);
271     $_ = uc ($str);
272     if (/\#([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])/) {
273         $rr = hex($1) * 256;
274         $gg = hex($2) * 256; 
275         $bb = hex($3) * 256;
276     }
277     my $color = Gtk2::Gdk::Color->new ($rr, $gg, $bb);
278     return $color;
279 }
280
281 sub str_from_gdk_color {
282     my ($color) = @_;
283     my $rr = $color->red / 256;
284     my $gg = $color->green / 256;
285     my $bb = $color->blue / 256;
286     my $str = sprintf ("#%.2x%.2x%.2x", $rr, $gg, $bb);
287     return $str;
288 }
289
290 sub handle_color_value {
291     my ($widget, $event, $dataref) = @_;
292     my $newcol = $widget->get_color;
293     $$dataref = &str_from_gdk_color ($newcol);
294 }
295
296 sub handle_selection_value {
297     my ($widget, $event, $dataref) = @_;
298     $$dataref = $widget->get_active;
299 }
300
301 sub get_rc_filename {
302     return $CONFIGDIR . $CONFIGRC;
303 }
304
305 sub set_rc_filename {
306     my ($fullname) = @_;
307     my @parts = split ('/', $fullname);
308     $CONFIGRC = $parts[$#parts];
309     $parts[$#parts] = '';
310     $CONFIGDIR = join ('/', @parts);
311 }
312
313 sub log_message {
314     my ($mesg, $fatal) = @_;
315     if (defined($fatal) && $fatal eq 'die') {
316         die "$NAME: $mesg\n";
317     }
318     if ($VERBOSE) {
319         print "$NAME: $mesg\n";
320     }
321 }
322
323 sub error_dialog {
324     my ($emsg) = @_;
325     my $markup = "<span weight=\"bold\" size=\"large\">" . $emsg . "</span>";
326     my $errordlg = Gtk2::MessageDialog->new_with_markup ($main_window, 'modal', 'error', 'cancel', $markup);
327     $errordlg->set_title (_('Error message'));
328     $errordlg->run;
329     $errordlg->destroy;
330 }
331
332 sub check_claws_not_running() {
333     my $socket = (not $ALTCONFIGDIR)? "/tmp/": $CONFIGDIR;
334     $socket .= "claws-mail-$<";
335     -S $socket and do {
336         my $emsg = "$xl::s{e_error}$xl::s{e_running}";
337         log_message ($emsg);
338         error_dialog ($emsg);
339         return FALSE;
340      };
341      return TRUE;
342 }
343
344 sub check_rc_file() {
345     my ($rcfile) = @_;
346     (defined($rcfile) && -f $rcfile) or do {
347        my $emsg = "$xl::s{e_error}$xl::s{e_noclawsrc}\n";
348         log_message ($emsg);
349         error_dialog ($emsg);
350         return FALSE;
351     };
352     return TRUE;
353 }
354
355 sub set_widget_hint() {
356     if ($SHOWHINTS) {
357         my ($wdgt, $hint) = @_;    
358         $wdgt->set_tooltip_text ($hint);
359         $wdgt->set_has_tooltip (TRUE);
360     }
361 }
362
363 sub set_widget_sens() {
364     my ($wdgt, $minver) = @_;
365     $wdgt->set_sensitive (&version_greater_or_equal ($CLAWSV, $minver));
366 }
367
368 # graphic element creation 
369
370 sub new_check_button_for {
371     my ($hash, $key) = @_;
372     my $name = $$hash{$key}[NAME];
373     my $label = $$hash{$key}[LABEL];
374     #
375     my $hbox = Gtk2::HBox->new (FALSE, 5);
376     my $cb = Gtk2::CheckButton->new ($label);
377     $$hash{$key}[GUI] = $cb;
378     if (defined ($HPVALUE{$name})) {
379         $cb->set_active ($HPVALUE{$name} eq '1');
380     }
381     $cb->signal_connect (clicked => sub {
382             my ($w, $e) = @_;
383             &handle_bool_value($w, $e, \$HPVALUE{$name});
384         });
385     &set_widget_hint ($cb, $$hash{$key}[DESC]);
386     &set_widget_sens ($cb, $$hash{$key}[CMVER]);
387     $hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
388     #
389     return $hbox;
390 }
391
392 sub new_text_box_for_int {
393     my ($hash, $key) = @_;
394     my $name = $$hash{$key}[NAME];
395     my $label = $$hash{$key}[LABEL];
396     my @type = split (/,/, $$hash{$key}[TYPE]);
397     push (@type, 0), push (@type, 10000) unless ($#type > 0); 
398     #
399     my $hbox = Gtk2::HBox->new (FALSE, 5);
400     my $glabel = Gtk2::Label->new ($label);
401     my $pagei = int (($type[2] - $type[1]) / 10);
402     my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
403     $gentry->set_numeric (TRUE);
404     $$hash{$key}[GUI] = $gentry;
405     $gentry->signal_connect('value-changed' => sub {
406             my ($w, $e) = @_;
407             &handle_int_value($w, $e, \$HPVALUE{$name});
408         });
409     &set_widget_hint ($gentry, $$hash{$key}[DESC]);
410     &set_widget_sens ($gentry, $$hash{$key}[CMVER]);
411     $glabel->set_sensitive ($gentry->sensitive);
412     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
413     $hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
414     #
415     return $hbox;
416 }
417
418 sub new_color_button_for {
419     my ($hash, $key) = @_;
420     my $name = $$hash{$key}[NAME];
421     my $label = $$hash{$key}[LABEL];
422     #
423     my $col = &gdk_color_from_str ($HPVALUE{$name});
424     my $hbox = Gtk2::HBox->new (FALSE, 5);
425     my $glabel = Gtk2::Label->new ($label);
426     my $button = Gtk2::ColorButton->new_with_color ($col);
427     $$hash{$key}[GUI] = $button;
428     $button->set_title ($label);
429     $button->set_relief ('none');
430     $button->signal_connect ('color-set' => sub {
431             my ($w, $e) = @_;
432             &handle_color_value($w, $e, \$HPVALUE{$name}); 
433         });
434     &set_widget_hint ($button, $$hash{$key}[DESC]);
435     &set_widget_sens ($button, $$hash{$key}[CMVER]);
436     $glabel->set_sensitive ($button->sensitive);
437     $hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
438     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
439     #
440     return $hbox;
441 }
442
443 sub new_selection_box_for {
444     my ($hash, $key) = @_;
445     my $name = $$hash{$key}[NAME];
446     my $label = $$hash{$key}[LABEL];
447     #
448     my $hbox = Gtk2::HBox->new (FALSE, 5);
449     my $glabel = Gtk2::Label->new ($label);
450     my $combo = Gtk2::ComboBox->new_text;
451     $$hash{$key}[GUI] = $combo;
452     my @options = split (';', $$hash{$key}[TYPE]);
453     foreach my $opt (@options) {
454         my ($index, $textkey) = split ('=', $opt);
455         $combo->insert_text ($index, $xl::s{$textkey});
456     }
457     $combo->signal_connect ('changed' => sub {
458             my ($w, $e) = @_;
459             &handle_selection_value($w, $e, \$HPVALUE{$name});
460         });
461     $combo->set_active ($HPVALUE{$name});
462     &set_widget_hint ($combo, $$hash{$key}[DESC]);
463     &set_widget_sens ($combo, $$hash{$key}[CMVER]);
464     $glabel->set_sensitive ($combo->sensitive);
465     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
466     $hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
467     #
468     return $hbox;
469 }
470
471 # more graphic helpers
472
473 sub new_hbox_pack() {
474     my $hbox = Gtk2::HBox->new (FALSE, 5);
475     $hbox->set_border_width (PAGE_SPC);
476     foreach my $item (@_) {
477         $hbox->pack_start ($item, FALSE, FALSE, 0);
478     }
479     return $hbox;
480 }    
481
482 sub new_vbox_pack() {
483     my $vbox = Gtk2::VBox->new (FALSE, 5);
484     $vbox->set_border_width (PAGE_SPC);
485     foreach my $item (@_) {
486         $vbox->pack_start ($item, FALSE, FALSE, 0);
487     }
488     return $vbox;
489 }    
490
491 sub new_vbox_pack_compact() {
492     my $vbox = Gtk2::VBox->new (FALSE, 0);
493     $vbox->set_border_width (0);
494     foreach my $item (@_) {
495         $vbox->pack_start ($item, FALSE, FALSE, 0);
496     }
497     return $vbox;
498 }    
499
500 sub new_subpage_frame () {
501     my ($box, $title, $notpacked) = @_;
502     my $frame = Gtk2::Frame->new ($title);
503     $frame->add ($box);    
504     return &new_vbox_pack ($frame) unless defined ($notpacked);
505     return $frame;
506 }
507
508 # preference maps and corresponding page creation subs
509
510 %pr::oth = ( # other preferences
511     use_dlg => [ 
512         'addressbook_use_editaddress_dialog',
513         $xl::s{l_oth_use_dlg},
514         $xl::s{h_oth_use_dlg},
515         'bool',
516         '2.7.0',
517         '0',
518         undef,
519     ],
520     max_use => [
521         'cache_max_mem_usage',
522         $xl::s{l_oth_max_use},
523         $xl::s{h_oth_max_use},
524         'int,0,262144', # 0 Kb - 256 Mb
525         '0.0.0',
526         '4096',
527         undef,
528     ],
529     min_time => [
530         'cache_min_keep_time',
531         $xl::s{l_oth_min_time},
532         $xl::s{h_oth_min_time},
533         'int,0,120', # 0 minutes - 2 hours
534         '0.0.0',
535         '15',
536         undef,
537     ],
538     use_netm => [
539         'use_networkmanager',
540         $xl::s{l_oth_use_netm},
541         $xl::s{h_oth_use_netm},
542         'bool',
543         '3.3.1',
544         '1',
545         undef,
546     ],
547 );
548
549 sub new_other_page() {
550     return &new_vbox_pack (
551                &new_subpage_frame (
552                    &new_vbox_pack (
553                        &new_check_button_for(\%pr::oth, 'use_dlg')),
554                    $xl::s{ab_frame}, 'not-packed'),
555                &new_subpage_frame (
556                    &new_vbox_pack (
557                        &new_text_box_for_int(\%pr::oth, 'max_use'),
558                        &new_text_box_for_int(\%pr::oth, 'min_time')),
559                    $xl::s{mem_frame}, 'not-packed'),
560                &new_subpage_frame (
561                    &new_vbox_pack (
562                        &new_check_button_for(\%pr::oth, 'use_netm')),
563                    $xl::s{netm_frame}, 'not-packed')
564            );
565 }
566
567 %pr::gui = ( # gui bells and whistles
568     b_unread => [ 
569         'bold_unread',
570         $xl::s{l_gui_b_unread},
571         $xl::s{h_gui_b_unread},
572         'bool',
573         '0.0.0',
574         '1',
575         undef,
576     ],
577     no_markup => [
578         'compose_no_markup',
579         $xl::s{l_gui_no_markup},
580         $xl::s{h_gui_no_markup},
581         'bool',
582         '0.0.0',
583         '0',
584         undef,
585     ],
586     dot_lines => [
587         'enable_dotted_lines',
588         $xl::s{l_gui_dot_lines},
589         $xl::s{h_gui_dot_lines},
590         'bool',
591         '0.0.0',
592         '0',
593         undef,
594     ],
595     h_scroll => [
596         'enable_hscrollbar',
597         $xl::s{l_gui_h_scroll},
598         $xl::s{h_gui_h_scroll},
599         'bool',
600         '0.0.0',
601         '1',
602         undef,
603     ],
604     swp_from => [
605         'enable_swap_from',
606         $xl::s{l_gui_swp_from},
607         $xl::s{h_gui_swp_from},
608         'bool',
609         '0.0.0',
610         '0',
611         undef,
612     ],
613     v_scroll => [
614         'folderview_vscrollbar_policy',
615         $xl::s{l_gui_v_scroll},
616         $xl::s{h_gui_v_scroll},
617         '0=l_gui_v_scroll_show;1=l_gui_v_scroll_auto;2=l_gui_v_scroll_hide',
618         '0.0.0',
619         '0',
620         undef,
621     ],
622     strip_off => [
623         'stripes_color_offset',
624         $xl::s{l_gui_strip_off},
625         $xl::s{h_gui_strip_off},
626         'int,0,10000', # no idea what this number means
627         '0.0.0',
628         '4000',
629         undef,
630     ],
631     cursor_v => [
632         'textview_cursor_visible',
633         $xl::s{l_gui_cursor_v},
634         $xl::s{h_gui_cursor_v},
635         'bool',
636         '0.0.0',
637         '0',
638         undef,
639     ],
640     toolbar_d => [
641         'toolbar_detachable',
642         $xl::s{l_gui_toolbar_d},
643         $xl::s{h_gui_toolbar_d},
644         'bool',
645         '0.0.0',
646         '0',
647         undef,
648     ],
649     strip_all => [
650         'use_stripes_everywhere',
651         $xl::s{l_gui_strip_all},
652         $xl::s{h_gui_strip_all},
653         'bool',
654         '0.0.0',
655         '1',
656         undef,
657     ],
658     strip_sum => [
659         'use_stripes_in_summaries',
660         $xl::s{l_gui_strip_sum},
661         $xl::s{h_gui_strip_sum},
662         'bool',
663         '0.0.0',
664         '1',
665         undef,
666     ],
667     two_linev => [
668         'two_line_vertical',
669         $xl::s{l_gui_two_line_v},
670         $xl::s{h_gui_two_line_v},
671         'bool',
672         '3.4.0.7',
673         '0',
674         undef,
675     ],
676     margin_co => [
677         'show_compose_margin',
678         $xl::s{l_gui_margin_co},
679         $xl::s{h_gui_margin_co},
680         'bool',
681         '3.7.6.7',
682         '0',
683         undef,
684     ],
685     mview_date => [
686         'msgview_date_format',
687         $xl::s{l_gui_mview_date},
688         $xl::s{h_gui_mview_date},
689         'bool',
690         '3.7.8.42',
691         '0',
692         undef,
693     ],
694 );
695
696 sub new_gui_page() {
697     my $gf = Gtk2::VBox->new (FALSE, 5);
698     $gf->set_border_width (PAGE_SPC);
699
700     my $cb_dot_lines = &new_check_button_for (\%pr::gui, 'dot_lines'); 
701     my $cb_toolbar_d = &new_check_button_for (\%pr::gui, 'toolbar_d');
702
703     $gf->pack_start (&new_subpage_frame (
704                          &new_vbox_pack (
705                              &new_check_button_for (\%pr::gui, 'strip_all'),
706                              &new_check_button_for (\%pr::gui, 'strip_sum'),
707                              &new_text_box_for_int (\%pr::gui, 'strip_off')),
708                          $xl::s{stripes_frame}, 'not-packed'),
709                      FALSE, FALSE, FRAME_SPC);
710     $gf->pack_start (&new_subpage_frame (
711                          &new_vbox_pack (
712                              &new_check_button_for (\%pr::gui, 'b_unread'),
713                              &new_check_button_for (\%pr::gui, 'swp_from'),
714                              &new_check_button_for (\%pr::gui, 'two_linev')),
715                          $xl::s{mlist_frame}, 'not-packed'), 
716                      FALSE, FALSE, FRAME_SPC);
717     $gf->pack_start (&new_subpage_frame (
718                          &new_hbox_pack (
719                              &new_check_button_for (\%pr::gui, 'cursor_v'),
720                              &new_check_button_for (\%pr::gui, 'mview_date')),
721                          $xl::s{mview_frame}, 'not-packed'), 
722                      FALSE, FALSE, FRAME_SPC);
723     $gf->pack_start (&new_subpage_frame (
724                          &new_hbox_pack (
725                              &new_check_button_for (\%pr::gui, 'no_markup'),
726                              &new_check_button_for (\%pr::gui, 'margin_co')),
727                          $xl::s{compo_frame}, 'not-packed'), 
728                      FALSE, FALSE, FRAME_SPC);
729     $gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);
730     $gf->pack_start ($cb_toolbar_d, FALSE, FALSE, 0);
731     $gf->pack_start (&new_subpage_frame (
732                          &new_vbox_pack (
733                              &new_check_button_for (\%pr::gui, 'h_scroll'),
734                              &new_selection_box_for (\%pr::gui, 'v_scroll')),
735                          $xl::s{sbar_frame}, 'not-packed'),
736                      FALSE, FALSE, FRAME_SPC);
737
738     return $gf;
739 }
740
741 %pr::beh = ( # tweak some behaviour
742     hover_t => [
743         'hover_timeout',
744         $xl::s{l_beh_hover_t},
745         $xl::s{h_beh_hover_t},
746         'int,100,3000', # 0.1 seconds - 3 seconds
747         '0.0.0',
748         '500',
749         undef,
750     ],
751     dangerous => [
752         'live_dangerously',
753         $xl::s{l_beh_dangerous},
754         $xl::s{h_beh_dangerous},
755         'bool',
756         '0.0.0',
757         '0',
758         undef,
759     ],
760     flowed => [
761         'respect_flowed_format',
762         $xl::s{l_beh_flowed},
763         $xl::s{h_beh_flowed},
764         'bool',
765         '0.0.0',
766         '0',
767         undef,
768     ],
769     parts_rw => [
770         'save_parts_readwrite',
771         $xl::s{l_beh_parts_rw},
772         $xl::s{h_beh_parts_rw},
773         'bool',
774         '0.0.0',
775         '0',
776         undef,
777     ],
778     skip_ssl => [
779         'skip_ssl_cert_check',
780         $xl::s{l_beh_skip_ssl},
781         $xl::s{h_beh_skip_ssl},
782         'bool',
783         '0.0.0',
784         '0',
785         undef,
786     ],
787     up_step => [
788         'statusbar_update_step',
789         $xl::s{l_beh_up_step},
790         $xl::s{h_beh_up_step},
791         'int,1,200', # 1 item - 200 items
792         '0.0.0',
793         '10',
794         undef,
795     ],
796     thread_a => [
797         'thread_by_subject_max_age',
798         $xl::s{l_beh_thread_a},
799         $xl::s{h_beh_thread_a},
800         'int,1,30', # 1 day - 30 days
801         '0.0.0',
802         '10',
803         undef,
804     ],
805     unsafe_ssl => [
806         'unsafe_ssl_certs',
807         $xl::s{l_beh_unsafe_ssl},
808         $xl::s{h_beh_unsafe_ssl},
809         'bool',
810         '0.0.0',
811         '0',
812         undef,
813     ],
814     use_utf8 => [
815         'utf8_instead_of_locale_for_broken_mail',
816         $xl::s{l_beh_use_utf8},
817         $xl::s{h_beh_use_utf8},
818         'bool',
819         '0.0.0',
820         '0',
821         undef,
822     ],
823     warn_dnd => [
824         'warn_dnd',
825         $xl::s{l_beh_warn_dnd},
826         $xl::s{h_beh_warn_dnd},
827         'bool',
828         '0.0.0',
829         '1',
830         undef,
831     ],
832     out_ascii => [
833         'outgoing_fallback_to_ascii',
834         $xl::s{l_beh_out_ascii},
835         $xl::s{h_beh_out_ascii},
836         'bool',
837         '3.4.0.37',
838         '1',
839         undef,
840     ],
841     pp_unsel => [
842         'primary_paste_unselects',
843         $xl::s{l_beh_pp_unsel},
844         $xl::s{h_beh_pp_unsel},
845         'bool',
846         '3.6.1.35',
847         '0',
848         undef,
849     ],
850     inline_at => [
851         'show_inline_attachments',
852         $xl::s{l_beh_inline_at},
853         $xl::s{h_beh_inline_at},
854         'bool',
855         '3.7.8.48',
856         '1',
857         undef,
858     ],
859 );
860
861 sub new_behaviour_page() {
862     my $bf = Gtk2::VBox->new (FALSE, 5);
863     $bf->set_border_width (PAGE_SPC);
864
865     my $tb_up_step = &new_text_box_for_int (\%pr::beh, 'up_step');
866     my $tb_thread_a = &new_text_box_for_int (\%pr::beh, 'thread_a');
867
868     $bf->pack_start (&new_subpage_frame (
869                          &new_vbox_pack (
870                              &new_text_box_for_int (\%pr::beh, 'hover_t'),
871                              &new_check_button_for (\%pr::beh, 'warn_dnd')),
872                          $xl::s{dnd_frame}, 'not-packed'), 
873                      FALSE, FALSE, FRAME_SPC);
874     $bf->pack_start (&new_subpage_frame (
875                          &new_hbox_pack (
876                              &new_check_button_for (\%pr::beh, 'skip_ssl'),
877                              &new_check_button_for (\%pr::beh, 'unsafe_ssl')),
878                          $xl::s{ssl_frame}, 'not-packed'),
879                      FALSE, FALSE, FRAME_SPC);
880     $bf->pack_start ($tb_up_step, FALSE, FALSE, 0);
881     $bf->pack_start ($tb_thread_a, FALSE, FALSE, 0);
882     $bf->pack_start (&new_subpage_frame (
883                          &new_vbox_pack (
884                              &new_check_button_for (\%pr::beh, 'flowed'),
885                              &new_check_button_for (\%pr::beh, 'parts_rw'),
886                              &new_check_button_for (\%pr::beh, 'use_utf8'),
887                              &new_check_button_for (\%pr::beh, 'dangerous'),
888                              &new_check_button_for (\%pr::beh, 'out_ascii'),
889                              &new_check_button_for (\%pr::beh, 'pp_unsel'),
890                              &new_check_button_for (\%pr::beh, 'inline_at')),
891                          $xl::s{msgs_frame}, 'not-packed'),
892                      FALSE, FALSE, FRAME_SPC);
893
894     return $bf;
895 }
896
897 %pr::col = ( # a variety of colours
898     emphasis => [
899         'emphasis_color',
900         $xl::s{l_col_emphasis},
901         $xl::s{h_col_emphasis},
902         'color',
903         '0.0.0',
904         '#0000cf',
905         undef,
906     ],
907     log_err => [
908         'log_error_color',
909         $xl::s{l_col_log_err},
910         $xl::s{h_col_log_err},
911         'color',
912         '0.0.0',
913         '#af0000',
914         undef,
915     ],
916     log_in => [
917         'log_in_color',
918         $xl::s{l_col_log_in},
919         $xl::s{h_col_log_in},
920         'color',
921         '0.0.0',
922         '#000000',
923         undef,
924     ],
925     log_msg => [
926         'log_msg_color',
927         $xl::s{l_col_log_msg},
928         $xl::s{h_col_log_msg},
929         'color',
930         '0.0.0',
931         '#00af00',
932         undef,
933     ],
934     log_out => [
935         'log_out_color',
936         $xl::s{l_col_log_out},
937         $xl::s{h_col_log_out},
938         'color',
939         '0.0.0',
940         '#0000ef',
941         undef,
942     ],
943     log_warn => [
944         'log_warn_color',
945         $xl::s{l_col_log_warn},
946         $xl::s{h_col_log_warn},
947         'color',
948         '0.0.0',
949         '#af0000',
950         undef,
951     ],
952 );
953
954 sub new_colours_page() {
955     return &new_vbox_pack (
956                &new_subpage_frame (
957                    &new_vbox_pack (
958                        &new_color_button_for (\%pr::col, 'emphasis')),
959                    $xl::s{msgview_frame}, 'not-packed'),
960                &new_subpage_frame (
961                    &new_vbox_pack (
962                        &new_color_button_for (\%pr::col, 'log_err'),
963                        &new_color_button_for (\%pr::col, 'log_in'),
964                        &new_color_button_for (\%pr::col, 'log_msg'),
965                        &new_color_button_for (\%pr::col, 'log_out'),
966                        &new_color_button_for (\%pr::col, 'log_warn')),
967                    $xl::s{log_frame}, 'not-packed')
968            );
969 }
970
971 %pr::win = ( # tweak window positions and/or sizes
972     main_x => [
973         'mainwin_x',
974         $xl::s{l_win_x},
975         $xl::s{h_win_x},
976         'int,0,3000', # 0 pixels - 3000 pixels
977         '0.0.0',
978         '16',
979         undef,
980     ],
981     main_y => [
982         'mainwin_y',
983         $xl::s{l_win_y},
984         $xl::s{h_win_y},
985         'int,0,3000', # 0 pixels - 3000 pixels
986         '0.0.0',
987         '16',
988         undef,
989     ],
990     main_w => [
991         'mainwin_width',
992         $xl::s{l_win_w},
993         $xl::s{h_win_w},
994         'int,0,3000', # 0 pixels - 3000 pixels
995         '0.0.0',
996         '779',
997         undef,
998     ],
999     main_h => [
1000         'mainwin_height',
1001         $xl::s{l_win_h},
1002         $xl::s{h_win_h},
1003         'int,0,3000', # 0 pixels - 3000 pixels
1004         '0.0.0',
1005         '568',
1006         undef,
1007     ],
1008     main_mx => [
1009         'mainwin_maximised',
1010         $xl::s{l_win_main_mx},
1011         $xl::s{h_win_main_mx},
1012         'bool',
1013         '0.0.0',
1014         '0',
1015         undef,
1016     ],
1017     main_fs => [
1018         'mainwin_fullscreen',
1019         $xl::s{l_win_main_fs},
1020         $xl::s{h_win_main_fs},
1021         'bool',
1022         '0.0.0',
1023         '0',
1024         undef,
1025     ],
1026     msgs_x => [
1027         'main_messagewin_x',
1028         $xl::s{l_win_x},
1029         $xl::s{h_win_x},
1030         'int,0,3000', # 0 pixels - 3000 pixels
1031         '0.0.0',
1032         '256',
1033         undef,
1034     ],
1035     msgs_y => [
1036         'main_messagewin_y',
1037         $xl::s{l_win_y},
1038         $xl::s{h_win_y},
1039         'int,0,3000', # 0 pixels - 3000 pixels
1040         '0.0.0',
1041         '210',
1042         undef,
1043     ],
1044     msgs_w => [
1045         'messagewin_width',
1046         $xl::s{l_win_w},
1047         $xl::s{h_win_w},
1048         'int,0,3000', # 0 pixels - 3000 pixels
1049         '0.0.0',
1050         '600',
1051         undef,
1052     ],
1053     msgs_h => [
1054         'messagewin_height',
1055         $xl::s{l_win_h},
1056         $xl::s{h_win_h},
1057         'int,0,3000', # 0 pixels - 3000 pixels
1058         '0.0.0',
1059         '540',
1060         undef,
1061     ],
1062     send_w => [
1063         'sendwin_width',
1064         $xl::s{l_win_w},
1065         $xl::s{h_win_w},
1066         'int,0,3000', # 0 pixels - 3000 pixels
1067         '0.0.0',
1068         '460',
1069         undef,
1070     ],
1071     send_h => [
1072         'sendwin_height',
1073         $xl::s{l_win_h},
1074         $xl::s{h_win_h},
1075         'int,0,3000', # 0 pixels - 3000 pixels
1076         '0.0.0',
1077         '-1',
1078         undef,
1079     ],
1080     recv_w => [
1081         'receivewin_width',
1082         $xl::s{l_win_w},
1083         $xl::s{h_win_w},
1084         'int,0,3000', # 0 pixels - 3000 pixels
1085         '0.0.0',
1086         '460',
1087         undef,
1088     ],
1089     recv_h => [
1090         'receivewin_height',
1091         $xl::s{l_win_h},
1092         $xl::s{h_win_h},
1093         'int,0,3000', # 0 pixels - 3000 pixels
1094         '0.0.0',
1095         '-1',
1096         undef,
1097     ],
1098     fold_x => [
1099         'folderwin_x',
1100         $xl::s{l_win_x},
1101         $xl::s{h_win_x},
1102         'int,0,3000', # 0 pixels - 3000 pixels
1103         '0.0.0',
1104         '16',
1105         undef,
1106     ],
1107     fold_y => [
1108         'folderwin_y',
1109         $xl::s{l_win_y},
1110         $xl::s{h_win_y},
1111         'int,0,3000', # 0 pixels - 3000 pixels
1112         '0.0.0',
1113         '16',
1114         undef,
1115     ],
1116     fold_w => [
1117         'folderitemwin_width',
1118         $xl::s{l_win_w},
1119         $xl::s{h_win_w},
1120         'int,0,3000', # 0 pixels - 3000 pixels
1121         '0.0.0',
1122         '500',
1123         undef,
1124     ],
1125     fold_h => [
1126         'folderitemwin_height',
1127         $xl::s{l_win_h},
1128         $xl::s{h_win_h},
1129         'int,0,3000', # 0 pixels - 3000 pixels
1130         '0.0.0',
1131         '-1',
1132         undef,
1133     ],
1134     fsel_w => [
1135         'folderselwin_width',
1136         $xl::s{l_win_w},
1137         $xl::s{h_win_w},
1138         'int,0,3000', # 0 pixels - 3000 pixels
1139         '0.0.0',
1140         '300',
1141         undef,
1142     ],
1143     fsel_h => [
1144         'folderselwin_height',
1145         $xl::s{l_win_h},
1146         $xl::s{h_win_h},
1147         'int,0,3000', # 0 pixels - 3000 pixels
1148         '0.0.0',
1149         '-1',
1150         undef,
1151     ],
1152     sour_w => [
1153         'sourcewin_width',
1154         $xl::s{l_win_w},
1155         $xl::s{h_win_w},
1156         'int,0,3000', # 0 pixels - 3000 pixels
1157         '0.0.0',
1158         '600',
1159         undef,
1160     ],
1161     sour_h => [
1162         'sourcewin_height',
1163         $xl::s{l_win_h},
1164         $xl::s{h_win_h},
1165         'int,0,3000', # 0 pixels - 3000 pixels
1166         '0.0.0',
1167         '500',
1168         undef,
1169     ],
1170     addr_w => [
1171         'addressbookwin_width',
1172         $xl::s{l_win_w},
1173         $xl::s{h_win_w},
1174         'int,0,3000', # 0 pixels - 3000 pixels
1175         '0.0.0',
1176         '520',
1177         undef,
1178     ],
1179     addr_h => [
1180         'addressbookwin_height',
1181         $xl::s{l_win_h},
1182         $xl::s{h_win_h},
1183         'int,0,3000', # 0 pixels - 3000 pixels
1184         '0.0.0',
1185         '-1',
1186         undef,
1187     ],
1188     adep_w => [
1189         'addressbookeditpersonwin_width',
1190         $xl::s{l_win_w},
1191         $xl::s{h_win_w},
1192         'int,0,3000', # 0 pixels - 3000 pixels
1193         '0.0.0',
1194         '640',
1195         undef,
1196     ],
1197     adep_h => [
1198         'addressbookeditpersonwin_height',
1199         $xl::s{l_win_h},
1200         $xl::s{h_win_h},
1201         'int,0,3000', # 0 pixels - 3000 pixels
1202         '0.0.0',
1203         '320',
1204         undef,
1205     ],
1206     adeg_w => [
1207         'addressbookeditgroupwin_width',
1208         $xl::s{l_win_w},
1209         $xl::s{h_win_w},
1210         'int,0,3000', # 0 pixels - 3000 pixels
1211         '0.0.0',
1212         '580',
1213         undef,
1214     ],
1215     adeg_h => [
1216         'addressbookeditgroupwin_height',
1217         $xl::s{l_win_h},
1218         $xl::s{h_win_h},
1219         'int,0,3000', # 0 pixels - 3000 pixels
1220         '0.0.0',
1221         '340',
1222         undef,
1223     ],
1224     adda_w => [
1225         'addressaddwin_width',
1226         $xl::s{l_win_w},
1227         $xl::s{h_win_w},
1228         'int,0,3000', # 0 pixels - 3000 pixels
1229         '0.0.0',
1230         '300',
1231         undef,
1232     ],
1233     adda_h => [
1234         'addressaddwin_height',
1235         $xl::s{l_win_h},
1236         $xl::s{h_win_h},
1237         'int,0,3000', # 0 pixels - 3000 pixels
1238         '0.0.0',
1239         '-1',
1240         undef,
1241     ],
1242     addf_w => [
1243         'addressbook_folderselwin_width',
1244         $xl::s{l_win_w},
1245         $xl::s{h_win_w},
1246         'int,0,3000', # 0 pixels - 3000 pixels
1247         '0.0.0',
1248         '300',
1249         undef,
1250     ],
1251     addf_h => [
1252         'addressbook_folderselwin_height',
1253         $xl::s{l_win_h},
1254         $xl::s{h_win_h},
1255         'int,0,3000', # 0 pixels - 3000 pixels
1256         '0.0.0',
1257         '-1',
1258         undef,
1259     ],
1260     acce_w => [
1261         'editaccountwin_width',
1262         $xl::s{l_win_w},
1263         $xl::s{h_win_w},
1264         'int,0,3000', # 0 pixels - 3000 pixels
1265         '0.0.0',
1266         '500',
1267         undef,
1268     ],
1269     acce_h => [
1270         'editaccountwin_height',
1271         $xl::s{l_win_h},
1272         $xl::s{h_win_h},
1273         'int,0,3000', # 0 pixels - 3000 pixels
1274         '0.0.0',
1275         '-1',
1276         undef,
1277     ],
1278     acco_w => [
1279         'accountswin_width',
1280         $xl::s{l_win_w},
1281         $xl::s{h_win_w},
1282         'int,0,3000', # 0 pixels - 3000 pixels
1283         '0.0.0',
1284         '500',
1285         undef,
1286     ],
1287     acco_h => [
1288         'accountswin_height',
1289         $xl::s{l_win_h},
1290         $xl::s{h_win_h},
1291         'int,0,3000', # 0 pixels - 3000 pixels
1292         '0.0.0',
1293         '-1',
1294         undef,
1295     ],
1296     filt_w => [
1297         'filteringwin_width',
1298         $xl::s{l_win_w},
1299         $xl::s{h_win_w},
1300         'int,0,3000', # 0 pixels - 3000 pixels
1301         '0.0.0',
1302         '500',
1303         undef,
1304     ],
1305     filt_h => [
1306         'filteringwin_height',
1307         $xl::s{l_win_h},
1308         $xl::s{h_win_h},
1309         'int,0,3000', # 0 pixels - 3000 pixels
1310         '0.0.0',
1311         '-1',
1312         undef,
1313     ],
1314     fila_w => [
1315         'filteringactionwin_width',
1316         $xl::s{l_win_w},
1317         $xl::s{h_win_w},
1318         'int,0,3000', # 0 pixels - 3000 pixels
1319         '0.0.0',
1320         '490',
1321         undef,
1322     ],
1323     fila_h => [
1324         'filteringactionwin_height',
1325         $xl::s{l_win_h},
1326         $xl::s{h_win_h},
1327         'int,0,3000', # 0 pixels - 3000 pixels
1328         '0.0.0',
1329         '-1',
1330         undef,
1331     ],
1332     fild_w => [
1333         'filtering_debugwin_width',
1334         $xl::s{l_win_w},
1335         $xl::s{h_win_w},
1336         'int,0,3000', # 0 pixels - 3000 pixels
1337         '0.0.0',
1338         '600',
1339         undef,
1340     ],
1341     fild_h => [
1342         'filtering_debugwin_height',
1343         $xl::s{l_win_h},
1344         $xl::s{h_win_h},
1345         'int,0,3000', # 0 pixels - 3000 pixels
1346         '0.0.0',
1347         '-1',
1348         undef,
1349     ],
1350     matc_w => [
1351         'matcherwin_width',
1352         $xl::s{l_win_w},
1353         $xl::s{h_win_w},
1354         'int,0,3000', # 0 pixels - 3000 pixels
1355         '0.0.0',
1356         '520',
1357         undef,
1358     ],
1359     matc_h => [
1360         'matcherwin_height',
1361         $xl::s{l_win_h},
1362         $xl::s{h_win_h},
1363         'int,0,3000', # 0 pixels - 3000 pixels
1364         '0.0.0',
1365         '-1',
1366         undef,
1367     ],
1368     pref_w => [
1369         'prefswin_width',
1370         $xl::s{l_win_w},
1371         $xl::s{h_win_w},
1372         'int,0,3000', # 0 pixels - 3000 pixels
1373         '0.0.0',
1374         '600',
1375         undef,
1376     ],
1377     pref_h => [
1378         'prefswin_height',
1379         $xl::s{l_win_h},
1380         $xl::s{h_win_h},
1381         'int,0,3000', # 0 pixels - 3000 pixels
1382         '0.0.0',
1383         '-1',
1384         undef,
1385     ],
1386     temp_w => [
1387         'templateswin_width',
1388         $xl::s{l_win_w},
1389         $xl::s{h_win_w},
1390         'int,0,3000', # 0 pixels - 3000 pixels
1391         '0.0.0',
1392         '480',
1393         undef,
1394     ],
1395     temp_h => [
1396         'templateswin_height',
1397         $xl::s{l_win_h},
1398         $xl::s{h_win_h},
1399         'int,0,3000', # 0 pixels - 3000 pixels
1400         '0.0.0',
1401         '-1',
1402         undef,
1403     ],
1404     acti_w => [
1405         'actionswin_width',
1406         $xl::s{l_win_w},
1407         $xl::s{h_win_w},
1408         'int,0,3000', # 0 pixels - 3000 pixels
1409         '0.0.0',
1410         '486',
1411         undef,
1412     ],
1413     acti_h => [
1414         'actionswin_height',
1415         $xl::s{l_win_h},
1416         $xl::s{h_win_h},
1417         'int,0,3000', # 0 pixels - 3000 pixels
1418         '0.0.0',
1419         '-1',
1420         undef,
1421     ],
1422     tags_w => [
1423         'tagswin_width',
1424         $xl::s{l_win_w},
1425         $xl::s{h_win_w},
1426         'int,0,3000', # 0 pixels - 3000 pixels
1427         '0.0.0',
1428         '486',
1429         undef,
1430     ],
1431     tags_h => [
1432         'tagswin_height',
1433         $xl::s{l_win_h},
1434         $xl::s{h_win_h},
1435         'int,0,3000', # 0 pixels - 3000 pixels
1436         '0.0.0',
1437         '-1',
1438         undef,
1439     ],
1440     plug_w => [
1441         'pluginswin_width',
1442         $xl::s{l_win_w},
1443         $xl::s{h_win_w},
1444         'int,0,3000', # 0 pixels - 3000 pixels
1445         '0.0.0',
1446         '-1',
1447         undef,
1448     ],
1449     plug_h => [
1450         'pluginswin_height',
1451         $xl::s{l_win_h},
1452         $xl::s{h_win_h},
1453         'int,0,3000', # 0 pixels - 3000 pixels
1454         '0.0.0',
1455         '-1',
1456         undef,
1457     ],
1458     logw_w => [
1459         'logwin_width',
1460         $xl::s{l_win_w},
1461         $xl::s{h_win_w},
1462         'int,0,3000', # 0 pixels - 3000 pixels
1463         '0.0.0',
1464         '520',
1465         undef,
1466     ],
1467     logw_h => [
1468         'logwin_height',
1469         $xl::s{l_win_h},
1470         $xl::s{h_win_h},
1471         'int,0,3000', # 0 pixels - 3000 pixels
1472         '0.0.0',
1473         '-1',
1474         undef,
1475     ],
1476     prin_w => [
1477         'print_previewwin_width',
1478         $xl::s{l_win_w},
1479         $xl::s{h_win_w},
1480         'int,0,3000', # 0 pixels - 3000 pixels
1481         '0.0.0',
1482         '600',
1483         undef,
1484     ],
1485     prin_h => [
1486         'print_previewwin_height',
1487         $xl::s{l_win_h},
1488         $xl::s{h_win_h},
1489         'int,0,3000', # 0 pixels - 3000 pixels
1490         '0.0.0',
1491         '-1',
1492         undef,
1493     ],
1494 );
1495
1496 sub new_winpos_subpage_main() {
1497     return &new_subpage_frame (
1498                &new_vbox_pack_compact (
1499                    &new_vbox_pack (
1500                        &new_text_box_for_int (\%pr::win, 'main_x'), 
1501                        &new_text_box_for_int (\%pr::win, 'main_y')), 
1502                    &new_hbox_pack (
1503                        &new_text_box_for_int (\%pr::win, 'main_w'), 
1504                        &new_text_box_for_int (\%pr::win, 'main_h')), 
1505                    &new_vbox_pack (
1506                        &new_check_button_for (\%pr::win, 'main_fs'), 
1507                        &new_check_button_for (\%pr::win, 'main_mx'))),
1508                _('Main window')
1509            );
1510 }
1511
1512 sub new_winpos_subpage_msgs() {
1513     return &new_subpage_frame (
1514                &new_vbox_pack_compact (
1515                    &new_vbox_pack (
1516                        &new_text_box_for_int (\%pr::win, 'msgs_x'),
1517                        &new_text_box_for_int (\%pr::win, 'msgs_y')),
1518                    &new_hbox_pack (
1519                        &new_text_box_for_int (\%pr::win, 'msgs_w'),
1520                        &new_text_box_for_int (\%pr::win, 'msgs_h'))),
1521                _('Message window')
1522            );
1523 }
1524
1525 sub new_winpos_subpage_sendrecv() {
1526     return &new_vbox_pack (
1527                &new_subpage_frame (
1528                    &new_hbox_pack (
1529                        &new_text_box_for_int (\%pr::win, 'send_w'),
1530                        &new_text_box_for_int (\%pr::win, 'send_h')),
1531                    _('Send window'), 'not-packed'),
1532                &new_subpage_frame (
1533                    &new_hbox_pack (
1534                        &new_text_box_for_int (\%pr::win, 'recv_w'),
1535                        &new_text_box_for_int (\%pr::win, 'recv_h')),
1536                    _('Receive window'), 'not-packed')
1537            );
1538 }
1539
1540 sub new_winpos_subpage_fold() {
1541     return &new_vbox_pack (
1542                &new_subpage_frame (
1543                    &new_vbox_pack_compact (
1544                        &new_vbox_pack (
1545                             &new_text_box_for_int (\%pr::win, 'fold_x'), 
1546                             &new_text_box_for_int (\%pr::win, 'fold_y')), 
1547                        &new_hbox_pack (
1548                            &new_text_box_for_int (\%pr::win, 'fold_w'), 
1549                            &new_text_box_for_int (\%pr::win, 'fold_h'))),
1550                    _('Folder window'), 'not-packed'),
1551                &new_subpage_frame (
1552                    &new_hbox_pack (
1553                        &new_text_box_for_int (\%pr::win, 'fsel_w'),
1554                        &new_text_box_for_int (\%pr::win, 'fsel_h')),
1555                    _('Folder selection window'), 'not-packed')
1556            );
1557 }
1558
1559 sub new_winpos_subpage_addrbook() {
1560     return &new_vbox_pack (
1561                 &new_subpage_frame (
1562                      &new_hbox_pack (
1563                           &new_text_box_for_int (\%pr::win, 'addr_w'),
1564                           &new_text_box_for_int (\%pr::win, 'addr_h')),
1565                      _('Addressbook main window'), 'not-packed'),
1566                 &new_subpage_frame (
1567                      &new_hbox_pack (
1568                           &new_text_box_for_int (\%pr::win, 'adep_w'),
1569                           &new_text_box_for_int (\%pr::win, 'adep_h')),
1570                      _('Edit person window'), 'not-packed'),
1571                 &new_subpage_frame (
1572                      &new_hbox_pack (
1573                           &new_text_box_for_int (\%pr::win, 'adeg_w'),
1574                           &new_text_box_for_int (\%pr::win, 'adeg_h')),
1575                      _('Edit group window'), 'not-packed'),
1576                 &new_subpage_frame (
1577                      &new_hbox_pack (
1578                           &new_text_box_for_int (\%pr::win, 'adda_w'),
1579                           &new_text_box_for_int (\%pr::win, 'adda_h')),
1580                      _('Add address window'), 'not-packed'),
1581                 &new_subpage_frame (
1582                      &new_hbox_pack (
1583                           &new_text_box_for_int (\%pr::win, 'addf_w'),
1584                           &new_text_box_for_int (\%pr::win, 'addf_h')),
1585                      _('Folder select window'), 'not-packed')
1586            );
1587 }
1588
1589 sub new_winpos_subpage_accounts() {
1590     return &new_vbox_pack (
1591                 &new_subpage_frame (
1592                      &new_hbox_pack (
1593                           &new_text_box_for_int (\%pr::win, 'acco_w'),
1594                           &new_text_box_for_int (\%pr::win, 'acco_h')),
1595                      _('Accounts window'), 'not-packed'),
1596                 &new_subpage_frame (
1597                      &new_hbox_pack (
1598                           &new_text_box_for_int (\%pr::win, 'acce_w'),
1599                           &new_text_box_for_int (\%pr::win, 'acce_h')),
1600                      _('Edit account window'), 'not-packed')
1601            );
1602 }
1603
1604 sub new_winpos_subpage_filtering() {
1605     return &new_vbox_pack (
1606                 &new_subpage_frame (
1607                      &new_hbox_pack (
1608                           &new_text_box_for_int (\%pr::win, 'filt_w'),
1609                           &new_text_box_for_int (\%pr::win, 'filt_h')),
1610                      _('Filtering window'), 'not-packed'),
1611                 &new_subpage_frame (
1612                      &new_hbox_pack (
1613                           &new_text_box_for_int (\%pr::win, 'fila_w'),
1614                           &new_text_box_for_int (\%pr::win, 'fila_h')),
1615                      _('Filtering actions window'), 'not-packed'),
1616                 &new_subpage_frame (
1617                      &new_hbox_pack (
1618                           &new_text_box_for_int (\%pr::win, 'fild_w'),
1619                           &new_text_box_for_int (\%pr::win, 'fild_h')),
1620                      _('Filtering debug window'), 'not-packed'),
1621                 &new_subpage_frame (
1622                      &new_hbox_pack (
1623                           &new_text_box_for_int (\%pr::win, 'matc_w'),
1624                           &new_text_box_for_int (\%pr::win, 'matc_h')),
1625                      _('Matcher window'), 'not-packed')
1626            );
1627 }
1628
1629 sub new_winpos_subpage_prefs() {
1630     return &new_vbox_pack (
1631                 &new_subpage_frame (
1632                      &new_hbox_pack (
1633                           &new_text_box_for_int (\%pr::win, 'pref_w'),
1634                           &new_text_box_for_int (\%pr::win, 'pref_h')),
1635                      _('Preferences window'), 'not-packed'),
1636                 &new_subpage_frame (
1637                      &new_hbox_pack (
1638                           &new_text_box_for_int (\%pr::win, 'temp_w'),
1639                           &new_text_box_for_int (\%pr::win, 'temp_h')),
1640                      _('Templates window'), 'not-packed'),
1641                 &new_subpage_frame (
1642                      &new_hbox_pack (
1643                           &new_text_box_for_int (\%pr::win, 'acti_w'),
1644                           &new_text_box_for_int (\%pr::win, 'acti_h')),
1645                      _('Actions window'), 'not-packed'),
1646                 &new_subpage_frame (
1647                      &new_hbox_pack (
1648                           &new_text_box_for_int (\%pr::win, 'tags_w'),
1649                           &new_text_box_for_int (\%pr::win, 'tags_h')),
1650                      _('Tags window'), 'not-packed'),
1651                 &new_subpage_frame (
1652                      &new_hbox_pack (
1653                           &new_text_box_for_int (\%pr::win, 'plug_w'),
1654                           &new_text_box_for_int (\%pr::win, 'plug_h')),
1655                      _('Plugins window'), 'not-packed')
1656            );
1657 }
1658
1659 sub new_winpos_subpage_misc() {
1660     return &new_vbox_pack (
1661                 &new_subpage_frame (
1662                      &new_hbox_pack (
1663                           &new_text_box_for_int (\%pr::win, 'logw_w'),
1664                           &new_text_box_for_int (\%pr::win, 'logw_h')),
1665                      _('Log window'), 'not-packed'),
1666                 &new_subpage_frame (
1667                      &new_hbox_pack (
1668                           &new_text_box_for_int (\%pr::win, 'prin_w'),
1669                           &new_text_box_for_int (\%pr::win, 'prin_h')),
1670                      _('Print preview window'), 'not-packed'),
1671                 &new_subpage_frame (
1672                      &new_hbox_pack (
1673                           &new_text_box_for_int (\%pr::win, 'sour_w'),
1674                           &new_text_box_for_int (\%pr::win, 'sour_h')),
1675                      _('View source window'), 'not-packed')
1676            );
1677 }
1678
1679 sub new_winpos_page() {
1680     my $winbook = Gtk2::Notebook->new;
1681     $winbook->set_tab_pos ('right');
1682     $winbook->append_page (&new_winpos_subpage_main, _('Main'));
1683     $winbook->append_page (&new_winpos_subpage_msgs, _('Message'));
1684     $winbook->append_page (&new_winpos_subpage_sendrecv, _('Send/Receive'));
1685     $winbook->append_page (&new_winpos_subpage_fold, _('Folder'));
1686     $winbook->append_page (&new_winpos_subpage_addrbook, _('Addressbook'));
1687     $winbook->append_page (&new_winpos_subpage_accounts, _('Accounts'));
1688     $winbook->append_page (&new_winpos_subpage_filtering, _('Filtering'));
1689     $winbook->append_page (&new_winpos_subpage_prefs, _('Preferences'));
1690     $winbook->append_page (&new_winpos_subpage_misc, _('Other'));
1691     return $winbook;
1692 }
1693
1694 # version info
1695 sub print_version() {
1696     print $xl::s{about_title} . "\n";
1697     print $xl::s{about_version} . " $VERSION\n";
1698     print "Perl-GLib " . $Glib::VERSION;
1699     # version info stuff appeared in 1.040
1700     if ($Glib::VERSION >= 1.040) {
1701         print _(", built for ") . join(".", Glib->GET_VERSION_INFO) 
1702               . _(", running with ") . join(".", &Glib::major_version, 
1703               &Glib::minor_version, &Glib::micro_version);
1704     }
1705     print "\n";
1706     print "Perl-GTK2 " . $Gtk2::VERSION;
1707     if ($Gtk2::VERSION >= 1.040) {
1708         print _(", built for ") . join(".", Gtk2->GET_VERSION_INFO)
1709               . _(", running with ") . join(".", &Gtk2::major_version, 
1710               &Gtk2::minor_version, &Gtk2::micro_version);
1711     }
1712     print "\n";
1713     my $clawsver = ($CLAWSV eq "") ? 
1714                 _("was not found!") : 
1715                 (_("returned version ") . $CLAWSV);
1716     print "Claws Mail " . $clawsver . "\n";
1717 }
1718
1719 # the command line help
1720 sub print_help() {
1721     my $line = '-' x length ($xl::s{about_title}) . "\n";
1722     print $line;
1723     print $xl::s{about_title} . "\n";
1724     print $line;
1725     print _("Syntax:\n");
1726     print _("    clawsker [options]\n");
1727     print _("Options:\n");
1728     print _("    --help                         Prints this help screen.\n");
1729     print _("    --version                      Prints version infos.\n");
1730     print _("    --verbose                      More messages on standard output.\n");
1731     print _("    --alternate-config-dir <dir>   Uses <dir> as Claws Mail config dir.\n");
1732     print _("    --clawsrc <file>               Uses <file> as full resource name.\n");
1733 }
1734
1735 # handle errors which don't allow to run
1736 sub command_line_fatal() {
1737     my $reason = shift;
1738     my $emsg = $xl::s{e_error} . $reason;
1739     error_dialog ($emsg);
1740     log_message ("$emsg", 'die');
1741 }
1742
1743 # parse the command line
1744 sub parse_command_line() {
1745     $CLAWSV = &get_claws_version;
1746     my $arg = 0;
1747     while (defined($ARGV[$arg])) {
1748         for ($ARGV[$arg]) {
1749             /--help/ && do { 
1750                 &print_help; 
1751                 return FALSE;
1752             };
1753             /--version/ && do { 
1754                 &print_version; 
1755                 return FALSE;
1756             };
1757             /--verbose/ && do {
1758                 $VERBOSE = TRUE;
1759                 last;
1760             };
1761             /--use-claws-version/ && do {
1762                 ++$arg;
1763                 &command_line_fatal ("required version")
1764                     unless defined($ARGV[$arg]);
1765                 &command_line_fatal ("required a dotted numeric value")
1766                     unless ($ARGV[$arg] =~ /[\d\.]+/);
1767                 $CLAWSV = $ARGV[$arg];
1768                 last;
1769             };
1770             /--alternate-config-dir/ && do {
1771                 ++$arg;
1772                 &command_line_fatal ($xl::s{e_requireddir})
1773                     unless defined($ARGV[$arg]);
1774                 &command_line_fatal ($xl::s{e_notadir})
1775                     unless -d $ARGV[$arg];
1776                 $CONFIGDIR = $ARGV[$arg];
1777                 $CONFIGDIR .= "/" 
1778                     unless ($CONFIGDIR =~ /.*\/$/);
1779                 $ALTCONFIGDIR = TRUE;
1780                 last;
1781             };
1782             /--clawsrc/ && do {
1783                 ++$arg;
1784                 &command_line_fatal($xl::s{e_requiredfile}) 
1785                     unless defined($ARGV[$arg]);
1786                 &command_line_fatal($xl::s{e_notafile}) 
1787                     unless -f $ARGV[$arg];
1788                 &set_rc_filename ($ARGV[$arg]);
1789                 last;
1790             };
1791             /.*/ && &command_line_fatal (
1792                 _("unknown option '{opt}'.\n", opt => $ARGV[$arg]));
1793         }
1794         ++$arg;
1795     }
1796     # eveything continues...
1797     return TRUE;
1798 }
1799
1800 # update the hidden preferences status from loaded values
1801 sub init_hidden_preferences() {
1802     foreach my $hash (\%pr::beh, \%pr::col, \%pr::gui, \%pr::oth, \%pr::win) {
1803         foreach my $key (keys %$hash) { 
1804             $HPVALUE{${$hash}{$key}[NAME]} = $PREFS{${$hash}{$key}[NAME]};
1805         }
1806     }
1807     return TRUE;
1808 }
1809
1810 # load current status from disc
1811 sub load_preferences() {
1812     my $rc = &get_rc_filename;
1813     &log_message ("Loading preferences from $rc\n");
1814     return FALSE unless &check_rc_file ($rc);
1815     return FALSE unless &check_claws_not_running;
1816     open (RCF, "<$rc");
1817     while (<RCF>) {
1818         chomp;
1819         if (/^([8a-z_]+)=(.*)$/) {
1820             $PREFS{$1} = "$2";
1821         }
1822     }
1823     close (RCF);
1824     return TRUE;
1825 }
1826
1827 # save current preferences to disc
1828 sub save_preferences() {
1829     my $rc = &get_rc_filename;
1830     &log_message ("Saving preferences to $rc\n");
1831     return FALSE unless &check_rc_file ($rc);
1832     return FALSE unless &check_claws_not_running;
1833     my $rcbak = "$rc.backup";
1834     rename ($rc, $rcbak);
1835     open (RCF, ">$rc");
1836     open (RCB, "<$rcbak");
1837     while (<RCB>) {
1838         chomp;
1839         if (/^([8a-z_]+)=(.*)$/) {
1840             if (defined($HPVALUE{$1})) {
1841                 print RCF $1 . "=" . $HPVALUE{$1} . "\n";
1842             }
1843             else {
1844                 print RCF $_ . "\n";
1845             }
1846         }
1847         else {
1848             print RCF $_ . "\n";
1849         }
1850     }
1851     close (RCB);
1852     close (RCF);
1853     return TRUE;
1854 }
1855
1856 # create notebook
1857 sub new_notebook() {
1858     my $nb = Gtk2::Notebook->new;
1859     # 
1860     $nb->append_page (&new_behaviour_page, $xl::s{tab_behaviour});
1861     $nb->append_page (&new_colours_page, $xl::s{tab_colours});
1862     $nb->append_page (&new_gui_page, $xl::s{tab_gui});
1863     $nb->append_page (&new_other_page, $xl::s{tab_other});
1864     $nb->append_page (&new_winpos_page, $xl::s{tab_winpos});
1865
1866     return $nb;
1867 }
1868
1869 # create an about dialog
1870 sub new_about_dialog() {
1871     my ($parent) = @_;
1872     my $title = $xl::s{about_title};
1873     my $lic = $xl::s{about_license};
1874     my $vers = $xl::s{about_version} . " $VERSION";
1875     my $license = 
1876 "This program is free software: you can redistribute it and/or modify
1877 it under the terms of the GNU General Public License as published by
1878 the Free Software Foundation, either version 3 of the License, or
1879 (at your option) any later version.
1880
1881 This program is distributed in the hope that it will be useful,
1882 but WITHOUT ANY WARRANTY; without even the implied warranty of
1883 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
1884 GNU General Public License for more details.
1885
1886 You should have received a copy of the GNU General Public License
1887 along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.";
1888     my $year = "2007-2011";
1889     my $holder = "Ricardo Mones &lt;ricardo\@mones.org&gt;";
1890     my $url = "http://www.claws-mail.org/clawsker";
1891
1892     my $dialog = Gtk2::MessageDialog->new_with_markup ($parent, 
1893                     [qw/modal destroy-with-parent/], 
1894                     'info', 'close', 
1895                     "<span size=\"x-large\" weight=\"bold\">$title</span>\n"
1896                     . "<span size=\"large\">$vers</span>\n\n"
1897                     . "<span color=\"blue\" size=\"large\">$url</span>\n\n"
1898                     . "<span>Copyright $year by $holder</span>\n\n"
1899                     . "<span size=\"large\">$lic</span>\n\n"
1900                     . "<span size=\"small\">$license</span>");
1901     $dialog->set_title ($xl::s{about});
1902     #
1903     return $dialog;
1904 }
1905
1906 # create buttons box
1907 sub new_button_box() {
1908     my ($parent, $adlg) = @_;
1909     my $b_about = Gtk2::Button->new_from_stock ('gtk-about');
1910     my $b_exit = Gtk2::Button->new_from_stock ('gtk-quit');
1911     my $b_apply = Gtk2::Button->new_from_stock ('gtk-apply');
1912     # disable button until is really implemented
1913     # my $b_undo = Gtk2::Button->new_from_stock ('gtk-undo');
1914     my $hbox = Gtk2::HBox->new (FALSE, 5);
1915     # signal handlers 
1916     $b_exit->signal_connect (clicked => sub { Gtk2->main_quit });
1917     $b_apply->signal_connect (clicked => sub { &save_preferences ($parent) });
1918     # $b_undo->signal_connect (clicked => sub { &undo_current_changes });
1919     $b_about->signal_connect (clicked => sub { $adlg->run; $adlg->hide });
1920     # package them
1921     $hbox->pack_end ($b_apply, FALSE, FALSE, 0);
1922     $hbox->pack_end ($b_exit, FALSE, FALSE, 0);
1923     # $hbox->pack_end ($b_undo, FALSE, FALSE, 0);
1924     $hbox->pack_start ($b_about, FALSE, FALSE, 0);
1925     #
1926     return $hbox;
1927 }
1928
1929 # initialise
1930 $main_window = Gtk2::Window->new ('toplevel');
1931 exit unless &parse_command_line;
1932 exit unless &load_preferences;
1933 exit unless &init_hidden_preferences;
1934 # create main GUI
1935 my $box = Gtk2::VBox->new (FALSE, 5);
1936 $box->set_border_width(3);
1937 my $about = &new_about_dialog;
1938 $box->pack_start (&new_notebook, FALSE, FALSE, 0);
1939 $box->pack_end (&new_button_box ($main_window, $about), FALSE, FALSE, 0);
1940 $main_window->signal_connect (delete_event => sub { Gtk2->main_quit });
1941 $main_window->set_title ($xl::s{win_title});
1942 $main_window->add ($box);
1943 $main_window->show_all;
1944 Gtk2->main;
1945