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