the directory is not assumed to be a Claws Mail configuration dir. If that is
the case use the --alternate-config-dir option instead.
+=head1 SEE ALSO
+
+Clawsker homepage "L<http://www.claws-mail.org/clawsker>"
+
=head1 AUTHOR
-Ricardo Mones E<lt>ricardo@mones.orgE<gt>
+Main author is Ricardo Mones E<lt>ricardo@mones.orgE<gt> with the help of
+others. See the AUTHORS file on source tarball for a detailed list of
+contributors.
=head1 LICENSE
-Copyright (c) 2007-2008 by Ricardo Mones Lastra
+Copyright (c) 2007-2009 by Ricardo Mones Lastra
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
tab_behaviour => _('Behaviour'),
tab_gui => _('GUI'),
tab_other => _('Other'),
+ tab_winpos => _('Windows'),
ab_frame => _('Addressbook'),
mem_frame => _('Memory'),
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.'),
l_gui_h_scroll => _('Enable horizontal scrollbar'),
h_gui_h_scroll => _('Enable the horizontal scrollbar in the Message List.'),
- l_gui_swp_from => _('Dislay To column instead From column in Sent folder'),
+ l_gui_swp_from => _('Display To column instead From column in Sent folder'),
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.'),
l_gui_v_scroll => _('Folder List scrollbar behaviour'),
h_gui_v_scroll => _('Specify the policy of vertical scrollbar of Folder List: show always, automatic or hide always.'),
l_col_log_warn => _('Warnings'),
h_col_log_warn => _('Colour for warning messages in log window.'),
+ l_win_x => _('X position'),
+ h_win_x => _('X coordinate for window\'s top-left corner.'),
+ l_win_y => _('Y position'),
+ h_win_y => _('Y coordinate for window\'s top-left corner.'),
+ l_win_w => _('Width'),
+ h_win_w => _('Window\'s width in pixels.'),
+ l_win_h => _('Height'),
+ h_win_h => _('Window\'s height in pixels.'),
+
+ l_win_main_mx => _('Maximized'),
+ h_win_main_mx => _('Changes window maximized status.'),
+ l_win_main_fs => _('Full-screen'),
+ h_win_main_fs => _('Changes full screen status.'),
+
e_error => _('Error: '),
e_noclawsrc => _('resource file for Claws Mail was not found.'),
e_running => _('seems Claws Mail is currently running, close it first.'),
# version functions
-sub version_greater() {
+sub version_greater_or_equal() {
my ($version, $refvers) = @_;
my @version = split (/\./, $version);
my @refvers = split (/\./, $refvers);
++$idx;
}
return TRUE if (($idx > $#refvers)
- or (int ($version[$idx]) > int ($refvers[$idx])));
+ or (int ($version[$idx]) >= int ($refvers[$idx])));
return FALSE;
}
}
}
+sub set_widget_sens() {
+ my ($wdgt, $minver) = @_;
+ $wdgt->set_sensitive (&version_greater_or_equal ($CLAWSV, $minver));
+}
+
# graphic element creation
sub new_check_button_for {
&handle_bool_value($w, $e, \$HPVALUE{$name});
});
&set_widget_hint ($cb, $$hash{$key}[DESC]);
+ &set_widget_sens ($cb, $$hash{$key}[CMVER]);
$hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
#
return $hbox;
&handle_int_value($w, $e, \$HPVALUE{$name});
});
&set_widget_hint ($gentry, $$hash{$key}[DESC]);
+ &set_widget_sens ($gentry, $$hash{$key}[CMVER]);
+ $glabel->set_sensitive ($gentry->sensitive);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
$hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
#
&handle_color_value($w, $e, \$HPVALUE{$name});
});
&set_widget_hint ($button, $$hash{$key}[DESC]);
+ &set_widget_sens ($button, $$hash{$key}[CMVER]);
+ $glabel->set_sensitive ($button->sensitive);
$hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
#
});
$combo->set_active ($HPVALUE{$name});
&set_widget_hint ($combo, $$hash{$key}[DESC]);
+ &set_widget_sens ($combo, $$hash{$key}[CMVER]);
+ $glabel->set_sensitive ($combo->sensitive);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
$hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
#
return $hbox;
}
+# more graphic helpers
+
+sub new_hbox_pack() {
+ my $hbox = Gtk2::HBox->new (FALSE, 5);
+ $hbox->set_border_width (PAGE_SPC);
+ foreach my $item (@_) {
+ $hbox->pack_start ($item, FALSE, FALSE, 0);
+ }
+ return $hbox;
+}
+
+sub new_vbox_pack() {
+ my $vbox = Gtk2::VBox->new (FALSE, 5);
+ $vbox->set_border_width (PAGE_SPC);
+ foreach my $item (@_) {
+ $vbox->pack_start ($item, FALSE, FALSE, 0);
+ }
+ return $vbox;
+}
+
+sub new_subpage_frame () {
+ my ($box, $title, $notpacked) = @_;
+ my $frame = Gtk2::Frame->new ($title);
+ $frame->add ($box);
+ return &new_vbox_pack ($frame) unless defined ($notpacked);
+ return $frame;
+}
+
# preference maps and corresponding page creation subs
%pr::oth = ( # other preferences
);
sub new_other_page() {
- my $of = Gtk2::VBox->new (FALSE, 5);
- $of->set_border_width (PAGE_SPC);
-
- my $ab_frame = Gtk2::Frame->new ($xl::s{ab_frame});
- my $cb_use_dlg = &new_check_button_for(\%pr::oth, 'use_dlg');
- my $vb1 = Gtk2::VBox->new (FALSE, 5);
- $vb1->set_border_width (PAGE_SPC);
- $vb1->pack_start ($cb_use_dlg, FALSE, FALSE, 0);
- $ab_frame->add ($vb1);
-
- my $mem_frame = Gtk2::Frame->new ($xl::s{mem_frame});
- my $tb_max_use = &new_text_box_for_int(\%pr::oth, 'max_use');
- my $tb_min_time = &new_text_box_for_int(\%pr::oth, 'min_time');
- my $vb2 = Gtk2::VBox->new (FALSE, 5);
- $vb2->set_border_width (PAGE_SPC);
- $vb2->pack_start ($tb_max_use, FALSE, FALSE, 0);
- $vb2->pack_start ($tb_min_time, FALSE, FALSE, 0);
- $mem_frame->add ($vb2);
-
- my $netm_frame = Gtk2::Frame->new ($xl::s{netm_frame});
- my $cb_use_netm = &new_check_button_for(\%pr::oth, 'use_netm');
- my $vb3 = Gtk2::VBox->new (FALSE, 5);
- $vb3->set_border_width (PAGE_SPC);
- $vb3->pack_start ($cb_use_netm, FALSE, FALSE, 0);
- $netm_frame->add ($vb3);
-
- $of->pack_start ($ab_frame, FALSE, FALSE, FRAME_SPC);
- $of->pack_start ($mem_frame, FALSE, FALSE, FRAME_SPC);
- $of->pack_start ($netm_frame, FALSE, FALSE, FRAME_SPC);
-
- return $of;
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_check_button_for(\%pr::oth, 'use_dlg')),
+ $xl::s{ab_frame}, 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int(\%pr::oth, 'max_use'),
+ &new_text_box_for_int(\%pr::oth, 'min_time')),
+ $xl::s{mem_frame}, 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_check_button_for(\%pr::oth, 'use_netm')),
+ $xl::s{netm_frame}, 'not-packed')
+ );
}
%pr::gui = ( # gui bells and whistles
my $gf = Gtk2::VBox->new (FALSE, 5);
$gf->set_border_width (PAGE_SPC);
- my $stripes_frame = Gtk2::Frame->new ($xl::s{stripes_frame});
- my $cb_strip_all = &new_check_button_for (\%pr::gui, 'strip_all');
- my $cb_strip_sum = &new_check_button_for (\%pr::gui, 'strip_sum');
- my $tb_strip_off = &new_text_box_for_int (\%pr::gui, 'strip_off');
- my $vb1 = Gtk2::VBox->new (FALSE, 5);
- $vb1->set_border_width (PAGE_SPC);
- $vb1->pack_start ($cb_strip_all, FALSE, FALSE, 0);
- $vb1->pack_start ($cb_strip_sum, FALSE, FALSE, 0);
- $vb1->pack_start ($tb_strip_off, FALSE, FALSE, 0);
- $stripes_frame->add ($vb1);
-
- my $mlist_frame = Gtk2::Frame->new ($xl::s{mlist_frame});
- my $cb_b_unread = &new_check_button_for (\%pr::gui, 'b_unread');
- my $cb_swp_from = &new_check_button_for (\%pr::gui, 'swp_from');
- my $vb3 = Gtk2::VBox->new (FALSE, 5);
- $vb3->set_border_width (PAGE_SPC);
- $vb3->pack_start ($cb_b_unread, FALSE, FALSE, 0);
- $vb3->pack_start ($cb_swp_from, FALSE, FALSE, 0);
- $mlist_frame->add ($vb3);
-
- my $sbar_frame = Gtk2::Frame->new ($xl::s{sbar_frame});
- my $cb_h_scroll = &new_check_button_for (\%pr::gui, 'h_scroll');
- my $sb_v_scroll = &new_selection_box_for (\%pr::gui, 'v_scroll');
- my $vb2 = Gtk2::VBox->new (FALSE, 5);
- $vb2->set_border_width (PAGE_SPC);
- $vb2->pack_start ($cb_h_scroll, FALSE, FALSE, 0);
- $vb2->pack_start ($sb_v_scroll, FALSE, FALSE, 0);
- $sbar_frame->add ($vb2);
-
my $cb_no_markup = &new_check_button_for (\%pr::gui, 'no_markup');
my $cb_dot_lines = &new_check_button_for (\%pr::gui, 'dot_lines');
my $cb_cursor_v = &new_check_button_for (\%pr::gui, 'cursor_v');
my $cb_toolbar_d = &new_check_button_for (\%pr::gui, 'toolbar_d');
my $cb_two_linev = &new_check_button_for (\%pr::gui, 'two_linev');
- $gf->pack_start ($stripes_frame, FALSE, FALSE, FRAME_SPC);
- $gf->pack_start ($mlist_frame, FALSE, FALSE, FRAME_SPC);
+ $gf->pack_start (&new_subpage_frame (
+ &new_vbox_pack (
+ &new_check_button_for (\%pr::gui, 'strip_all'),
+ &new_check_button_for (\%pr::gui, 'strip_sum'),
+ &new_text_box_for_int (\%pr::gui, 'strip_off')),
+ $xl::s{stripes_frame}, 'not-packed'),
+ FALSE, FALSE, FRAME_SPC);
+ $gf->pack_start (&new_subpage_frame (
+ &new_vbox_pack (
+ &new_check_button_for (\%pr::gui, 'b_unread'),
+ &new_check_button_for (\%pr::gui, 'swp_from')),
+ $xl::s{mlist_frame}, 'not-packed'),
+ FALSE, FALSE, FRAME_SPC);
$gf->pack_start ($cb_no_markup, FALSE, FALSE, 0);
$gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);
$gf->pack_start ($cb_cursor_v, FALSE, FALSE, 0);
$gf->pack_start ($cb_toolbar_d, FALSE, FALSE, 0);
$gf->pack_start ($cb_two_linev, FALSE, FALSE, 0);
- $gf->pack_start ($sbar_frame, FALSE, FALSE, FRAME_SPC);
+ $gf->pack_start (&new_subpage_frame (
+ &new_vbox_pack (
+ &new_check_button_for (\%pr::gui, 'h_scroll'),
+ &new_selection_box_for (\%pr::gui, 'v_scroll')),
+ $xl::s{sbar_frame}, 'not-packed'),
+ FALSE, FALSE, FRAME_SPC);
return $gf;
}
my $bf = Gtk2::VBox->new (FALSE, 5);
$bf->set_border_width (PAGE_SPC);
- my $dnd_frame = Gtk2::Frame->new ($xl::s{dnd_frame});
- my $tb_hoover_t = &new_text_box_for_int (\%pr::beh, 'hover_t');
- my $cb_warn_dnd = &new_check_button_for (\%pr::beh, 'warn_dnd');
- my $vb1 = Gtk2::VBox->new (FALSE, 5);
- $vb1->set_border_width (PAGE_SPC);
- $vb1->pack_start ($cb_warn_dnd, FALSE, FALSE, 0);
- $vb1->pack_start ($tb_hoover_t, FALSE, FALSE, 0);
- $dnd_frame->add ($vb1);
-
- my $ssl_frame = Gtk2::Frame->new ($xl::s{ssl_frame});
- my $cb_skip_ssl = &new_check_button_for (\%pr::beh, 'skip_ssl');
- my $cb_unsafe_ssl = &new_check_button_for (\%pr::beh, 'unsafe_ssl');
- my $hb1 = Gtk2::HBox->new (FALSE, 5);
- $hb1->set_border_width (PAGE_SPC);
- $hb1->pack_start ($cb_skip_ssl, FALSE, FALSE, 0);
- $hb1->pack_start ($cb_unsafe_ssl, FALSE, FALSE, 0);
- $ssl_frame->add ($hb1);
-
my $tb_up_step = &new_text_box_for_int (\%pr::beh, 'up_step');
my $tb_thread_a = &new_text_box_for_int (\%pr::beh, 'thread_a');
- my $msgs_frame = Gtk2::Frame->new ($xl::s{msgs_frame});
- my $cb_flowed = &new_check_button_for (\%pr::beh, 'flowed');
- my $cb_parts_rw = &new_check_button_for (\%pr::beh, 'parts_rw');
- my $cb_use_utf8 = &new_check_button_for (\%pr::beh, 'use_utf8');
- my $cb_dangerous = &new_check_button_for (\%pr::beh, 'dangerous');
- my $cb_out_ascii = &new_check_button_for (\%pr::beh, 'out_ascii');
- my $cb_pp_unsel = &new_check_button_for (\%pr::beh, 'pp_unsel');
- my $vb2 = Gtk2::VBox->new (FALSE, 5);
- $vb2->set_border_width (PAGE_SPC);
- $vb2->pack_start ($cb_flowed, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_parts_rw, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_use_utf8, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_dangerous, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_out_ascii, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_pp_unsel, FALSE, FALSE, 0);
- $msgs_frame->add ($vb2);
-
- $bf->pack_start ($dnd_frame, FALSE, FALSE, FRAME_SPC);
- $bf->pack_start ($ssl_frame, FALSE, FALSE, FRAME_SPC);
+ $bf->pack_start (&new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int (\%pr::beh, 'hover_t'),
+ &new_check_button_for (\%pr::beh, 'warn_dnd')),
+ $xl::s{dnd_frame}, 'not-packed'),
+ FALSE, FALSE, FRAME_SPC);
+ $bf->pack_start (&new_subpage_frame (
+ &new_hbox_pack (
+ &new_check_button_for (\%pr::beh, 'skip_ssl'),
+ &new_check_button_for (\%pr::beh, 'unsafe_ssl')),
+ $xl::s{ssl_frame}, 'not-packed'),
+ FALSE, FALSE, FRAME_SPC);
$bf->pack_start ($tb_up_step, FALSE, FALSE, 0);
$bf->pack_start ($tb_thread_a, FALSE, FALSE, 0);
- $bf->pack_start ($msgs_frame, FALSE, FALSE, FRAME_SPC);
+ $bf->pack_start (&new_subpage_frame (
+ &new_vbox_pack (
+ &new_check_button_for (\%pr::beh, 'flowed'),
+ &new_check_button_for (\%pr::beh, 'parts_rw'),
+ &new_check_button_for (\%pr::beh, 'use_utf8'),
+ &new_check_button_for (\%pr::beh, 'dangerous'),
+ &new_check_button_for (\%pr::beh, 'out_ascii'),
+ &new_check_button_for (\%pr::beh, 'pp_unsel')),
+ $xl::s{msgs_frame}, 'not-packed'),
+ FALSE, FALSE, FRAME_SPC);
return $bf;
}
);
sub new_colours_page() {
- my $cf = Gtk2::VBox->new (FALSE, 5);
- $cf->set_border_width (PAGE_SPC);
-
- my $msgview_frame = Gtk2::Frame->new ($xl::s{msgview_frame});
- my $cb_emphasis = &new_color_button_for (\%pr::col, 'emphasis');
- my $vb1 = Gtk2::VBox->new (FALSE, 5);
- $vb1->set_border_width (PAGE_SPC);
- $vb1->pack_start ($cb_emphasis, FALSE, FALSE, 0);
- $msgview_frame->add ($vb1);
-
- my $log_frame = Gtk2::Frame->new ($xl::s{log_frame});
- my $cb_log_err = &new_color_button_for (\%pr::col, 'log_err');
- my $cb_log_in = &new_color_button_for (\%pr::col, 'log_in');
- my $cb_log_msg = &new_color_button_for (\%pr::col, 'log_msg');
- my $cb_log_out = &new_color_button_for (\%pr::col, 'log_out');
- my $cb_log_warn = &new_color_button_for (\%pr::col, 'log_warn');
- my $vb2 = Gtk2::VBox->new (FALSE, 5);
- $vb2->set_border_width (PAGE_SPC);
- $vb2->pack_start ($cb_log_err, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_log_in, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_log_msg, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_log_out, FALSE, FALSE, 0);
- $vb2->pack_start ($cb_log_warn, FALSE, FALSE, 0);
- $log_frame->add ($vb2);
-
- $cf->pack_start ($msgview_frame, FALSE, FALSE, 0);
- $cf->pack_start ($log_frame, FALSE, FALSE, 0);
-
- return $cf;
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_color_button_for (\%pr::col, 'emphasis')),
+ $xl::s{msgview_frame}, 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_color_button_for (\%pr::col, 'log_err'),
+ &new_color_button_for (\%pr::col, 'log_in'),
+ &new_color_button_for (\%pr::col, 'log_msg'),
+ &new_color_button_for (\%pr::col, 'log_out'),
+ &new_color_button_for (\%pr::col, 'log_warn')),
+ $xl::s{log_frame}, 'not-packed')
+ );
+}
+
+%pr::win = ( # tweak window positions and/or sizes
+ main_x => [
+ 'mainwin_x',
+ $xl::s{l_win_x},
+ $xl::s{h_win_x},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '16',
+ undef,
+ ],
+ main_y => [
+ 'mainwin_y',
+ $xl::s{l_win_y},
+ $xl::s{h_win_y},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '16',
+ undef,
+ ],
+ main_w => [
+ 'mainwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '779',
+ undef,
+ ],
+ main_h => [
+ 'mainwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '568',
+ undef,
+ ],
+ main_mx => [
+ 'mainwin_maximised',
+ $xl::s{l_win_main_mx},
+ $xl::s{h_win_main_mx},
+ 'bool',
+ '0.0.0',
+ '0',
+ undef,
+ ],
+ main_fs => [
+ 'mainwin_fullscreen',
+ $xl::s{l_win_main_fs},
+ $xl::s{h_win_main_fs},
+ 'bool',
+ '0.0.0',
+ '0',
+ undef,
+ ],
+ msgs_x => [
+ 'main_messagewin_x',
+ $xl::s{l_win_x},
+ $xl::s{h_win_x},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '256',
+ undef,
+ ],
+ msgs_y => [
+ 'main_messagewin_y',
+ $xl::s{l_win_y},
+ $xl::s{h_win_y},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '210',
+ undef,
+ ],
+ msgs_w => [
+ 'messagewin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '600',
+ undef,
+ ],
+ msgs_h => [
+ 'messagewin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '540',
+ undef,
+ ],
+ send_w => [
+ 'sendwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '460',
+ undef,
+ ],
+ send_h => [
+ 'sendwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ recv_w => [
+ 'receivewin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '460',
+ undef,
+ ],
+ recv_h => [
+ 'receivewin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ fold_x => [
+ 'folderwin_x',
+ $xl::s{l_win_x},
+ $xl::s{h_win_x},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '16',
+ undef,
+ ],
+ fold_y => [
+ 'folderwin_y',
+ $xl::s{l_win_y},
+ $xl::s{h_win_y},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '16',
+ undef,
+ ],
+ fold_w => [
+ 'folderitemwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '500',
+ undef,
+ ],
+ fold_h => [
+ 'folderitemwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ fsel_w => [
+ 'folderselwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '300',
+ undef,
+ ],
+ fsel_h => [
+ 'folderselwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ sour_w => [
+ 'sourcewin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '600',
+ undef,
+ ],
+ sour_h => [
+ 'sourcewin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '500',
+ undef,
+ ],
+ addr_w => [
+ 'addressbookwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '520',
+ undef,
+ ],
+ addr_h => [
+ 'addressbookwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ adep_w => [
+ 'addressbookeditpersonwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '640',
+ undef,
+ ],
+ adep_h => [
+ 'addressbookeditpersonwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '320',
+ undef,
+ ],
+ adeg_w => [
+ 'addressbookeditgroupwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '580',
+ undef,
+ ],
+ adeg_h => [
+ 'addressbookeditgroupwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '340',
+ undef,
+ ],
+ adda_w => [
+ 'addressaddwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '300',
+ undef,
+ ],
+ adda_h => [
+ 'addressaddwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ addf_w => [
+ 'addressbook_folderselwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '300',
+ undef,
+ ],
+ addf_h => [
+ 'addressbook_folderselwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ acce_w => [
+ 'editaccountwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '500',
+ undef,
+ ],
+ acce_h => [
+ 'editaccountwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ acco_w => [
+ 'accountswin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '500',
+ undef,
+ ],
+ acco_h => [
+ 'accountswin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ filt_w => [
+ 'filteringwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '500',
+ undef,
+ ],
+ filt_h => [
+ 'filteringwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ fila_w => [
+ 'filteringactionwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '490',
+ undef,
+ ],
+ fila_h => [
+ 'filteringactionwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ fild_w => [
+ 'filtering_debugwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '600',
+ undef,
+ ],
+ fild_h => [
+ 'filtering_debugwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ matc_w => [
+ 'matcherwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '520',
+ undef,
+ ],
+ matc_h => [
+ 'matcherwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ pref_w => [
+ 'prefswin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '600',
+ undef,
+ ],
+ pref_h => [
+ 'prefswin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ temp_w => [
+ 'templateswin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '480',
+ undef,
+ ],
+ temp_h => [
+ 'templateswin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ acti_w => [
+ 'actionswin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '486',
+ undef,
+ ],
+ acti_h => [
+ 'actionswin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ tags_w => [
+ 'tagswin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '486',
+ undef,
+ ],
+ tags_h => [
+ 'tagswin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ plug_w => [
+ 'pluginswin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ plug_h => [
+ 'pluginswin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ logw_w => [
+ 'logwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '520',
+ undef,
+ ],
+ logw_h => [
+ 'logwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+ prin_w => [
+ 'print_previewwin_width',
+ $xl::s{l_win_w},
+ $xl::s{h_win_w},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '600',
+ undef,
+ ],
+ prin_h => [
+ 'print_previewwin_height',
+ $xl::s{l_win_h},
+ $xl::s{h_win_h},
+ 'int,0,3000', # 0 pixels - 3000 pixels
+ '0.0.0',
+ '-1',
+ undef,
+ ],
+);
+
+sub new_winpos_subpage_main() {
+ return &new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int (\%pr::win, 'main_x'),
+ &new_text_box_for_int (\%pr::win, 'main_y'),
+ &new_text_box_for_int (\%pr::win, 'main_w'),
+ &new_text_box_for_int (\%pr::win, 'main_h'),
+ &new_hbox_pack (
+ &new_check_button_for (\%pr::win, 'main_fs'),
+ &new_check_button_for (\%pr::win, 'main_mx'))),
+ _('Main window')
+ );
+}
+
+sub new_winpos_subpage_msgs() {
+ return &new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int (\%pr::win, 'msgs_x'),
+ &new_text_box_for_int (\%pr::win, 'msgs_y'),
+ &new_text_box_for_int (\%pr::win, 'msgs_w'),
+ &new_text_box_for_int (\%pr::win, 'msgs_h')),
+ _('Message window')
+ );
+}
+
+sub new_winpos_subpage_sendrecv() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'send_w'),
+ &new_text_box_for_int (\%pr::win, 'send_h'))),
+ _('Send window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'recv_w'),
+ &new_text_box_for_int (\%pr::win, 'recv_h'))),
+ _('Receive window'), 'not-packed')
+ );
+}
+
+sub new_winpos_subpage_fold() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int (\%pr::win, 'fold_x'),
+ &new_text_box_for_int (\%pr::win, 'fold_y'),
+ &new_text_box_for_int (\%pr::win, 'fold_w'),
+ &new_text_box_for_int (\%pr::win, 'fold_h')),
+ _('Folder window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int (\%pr::win, 'fsel_w'),
+ &new_text_box_for_int (\%pr::win, 'fsel_h')),
+ _('Folder selection window'), 'not-packed')
+ );
+}
+
+sub new_winpos_subpage_addrbook() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'addr_w'),
+ &new_text_box_for_int (\%pr::win, 'addr_h'))),
+ _('Addressbook main window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'adep_w'),
+ &new_text_box_for_int (\%pr::win, 'adep_h'))),
+ _('Edit person window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'adeg_w'),
+ &new_text_box_for_int (\%pr::win, 'adeg_h'))),
+ _('Edit group window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'adda_w'),
+ &new_text_box_for_int (\%pr::win, 'adda_h'))),
+ _('Add address window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'addf_w'),
+ &new_text_box_for_int (\%pr::win, 'addf_h'))),
+ _('Folder select window'), 'not-packed')
+ );
+}
+
+sub new_winpos_subpage_accounts() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'acco_w'),
+ &new_text_box_for_int (\%pr::win, 'acco_h'))),
+ _('Accounts window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'acce_w'),
+ &new_text_box_for_int (\%pr::win, 'acce_h'))),
+ _('Edit account window'), 'not-packed')
+ );
+}
+
+sub new_winpos_subpage_filtering() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'filt_w'),
+ &new_text_box_for_int (\%pr::win, 'filt_h'))),
+ _('Filtering window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'fila_w'),
+ &new_text_box_for_int (\%pr::win, 'fila_h'))),
+ _('Filtering actions window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'fild_w'),
+ &new_text_box_for_int (\%pr::win, 'fild_h'))),
+ _('Filtering debug window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'matc_w'),
+ &new_text_box_for_int (\%pr::win, 'matc_h'))),
+ _('Matcher window'), 'not-packed')
+ );
+}
+
+sub new_winpos_subpage_prefs() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'pref_w'),
+ &new_text_box_for_int (\%pr::win, 'pref_h'))),
+ _('Preferences window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'temp_w'),
+ &new_text_box_for_int (\%pr::win, 'temp_h'))),
+ _('Templates window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'acti_w'),
+ &new_text_box_for_int (\%pr::win, 'acti_h'))),
+ _('Actions window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'tags_w'),
+ &new_text_box_for_int (\%pr::win, 'tags_h'))),
+ _('Tags window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'plug_w'),
+ &new_text_box_for_int (\%pr::win, 'plug_h'))),
+ _('Plugins window'), 'not-packed')
+ );
+}
+
+sub new_winpos_subpage_misc() {
+ return &new_vbox_pack (
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'logw_w'),
+ &new_text_box_for_int (\%pr::win, 'logw_h'))),
+ _('Log window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_hbox_pack (
+ &new_text_box_for_int (\%pr::win, 'prin_w'),
+ &new_text_box_for_int (\%pr::win, 'prin_h'))),
+ _('Print preview window'), 'not-packed'),
+ &new_subpage_frame (
+ &new_vbox_pack (
+ &new_text_box_for_int (\%pr::win, 'sour_w'),
+ &new_text_box_for_int (\%pr::win, 'sour_h')),
+ _('View source window'), 'not-packed')
+ );
+}
+
+sub new_winpos_page() {
+ my $winbook = Gtk2::Notebook->new;
+ $winbook->set_tab_pos ('right');
+ $winbook->append_page (&new_winpos_subpage_main, _('Main'));
+ $winbook->append_page (&new_winpos_subpage_msgs, _('Message'));
+ $winbook->append_page (&new_winpos_subpage_sendrecv, _('Send/Receive'));
+ $winbook->append_page (&new_winpos_subpage_fold, _('Folder'));
+ $winbook->append_page (&new_winpos_subpage_addrbook, _('Addressbook'));
+ $winbook->append_page (&new_winpos_subpage_accounts, _('Accounts'));
+ $winbook->append_page (&new_winpos_subpage_filtering, _('Filtering'));
+ $winbook->append_page (&new_winpos_subpage_prefs, _('Preferences'));
+ $winbook->append_page (&new_winpos_subpage_misc, _('Other'));
+ return $winbook;
}
# version info
&command_line_fatal ("required a dotted numeric value")
unless ($ARGV[$arg] =~ /[\d\.]+/);
$CLAWSV = $ARGV[$arg];
+ last;
};
/--alternate-config-dir/ && do {
++$arg;
# update the hidden preferences status from loaded values
sub init_hidden_preferences() {
- foreach my $hash (\%pr::beh, \%pr::col, \%pr::gui, \%pr::oth) {
+ foreach my $hash (\%pr::beh, \%pr::col, \%pr::gui, \%pr::oth, \%pr::win) {
foreach my $key (keys %$hash) {
$HPVALUE{${$hash}{$key}[NAME]} = $PREFS{${$hash}{$key}[NAME]};
}
$nb->append_page (&new_colours_page, $xl::s{tab_colours});
$nb->append_page (&new_gui_page, $xl::s{tab_gui});
$nb->append_page (&new_other_page, $xl::s{tab_other});
+ $nb->append_page (&new_winpos_page, $xl::s{tab_winpos});
return $nb;
}
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.";
- my $year = "2007";
+ my $year = "2007-2009";
my $holder = "Ricardo Mones <ricardo\@mones.org>";
+ my $url = "http://www.claws-mail.org/clawsker";
my $dialog = Gtk2::MessageDialog->new_with_markup ($parent,
[qw/modal destroy-with-parent/],
'info', 'close',
"<span size=\"x-large\" weight=\"bold\">$title</span>\n"
- . "<span size=\"large\">$vers</span>\n"
+ . "<span size=\"large\">$vers</span>\n\n"
+ . "<span color=\"blue\" size=\"large\">$url</span>\n\n"
. "<span>Copyright $year by $holder</span>\n\n"
. "<span size=\"large\">$lic</span>\n\n"
. "<span size=\"small\">$license</span>");