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