%xl::s = (
win_title => _('Claws Mail Hidden Preferences'),
about => _('About...'),
- about_title => _('Clawsker ~ A Claws Mail Tweaker'),
+ about_title => _('Clawsker :: A Claws Mail Tweaker'),
about_license => _('License:'),
+ about_version => _('Version:'),
tab_colours => _('Colours'),
tab_behaviour => _('Behaviour'),
mem_frame => _('Memory'),
msgview_frame => _('Message view'),
log_frame => _('Log window'),
+ dnd_frame => _('Drag and drop'),
+ ssl_frame => _('Secure Sockets Layer'),
+ msgs_frame => _('Messages'),
+ stripes_frame => _('Coloured stripes'),
+ sbar_frame => _('Scroll bars'),
+ mlist_frame => _('Message list'),
l_oth_use_dlg => _('Use address book dialog'),
h_oth_use_dlg => _('If true use a separate dialogue to edit a person\'s details. Otherwise will use a form embedded in the addressbook\'s main window.'),
l_beh_hover_t => _('Drag and drop hover timeout (ms)'),
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.'),
- l_beh_dangerous => _('Don\'t confirm deletions'),
+ l_beh_dangerous => _('Don\'t confirm deletions (dangerous!)'),
h_beh_dangerous => _('Don\'t ask for confirmation before definitive deletion of emails.'),
l_beh_flowed => _('Respect flowed format in messages'),
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.'),
use constant TYPE => 3; # data type: bool, int, float, string, color
use constant GUI => 4; # GUI element
+# constants for GUI spacing
+use constant HBOX_SPC => 5;
+use constant FRAME_SPC => 2;
+use constant PAGE_SPC => 5;
+
# data handlers and auxiliar functions
sub handle_bool_value {
my $name = $$hash{$key}[NAME];
my $label = $$hash{$key}[LABEL];
#
+ my $hbox = Gtk2::HBox->new (FALSE, 5);
my $cb = Gtk2::CheckButton->new ($label);
$$hash{$key}[GUI] = $cb;
$cb->set_active ($HPVALUE{$name} eq '1');
my ($w, $e) = @_;
&handle_bool_value($w, $e, \$HPVALUE{$name});
});
+ $hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
#
- return $cb;
+ return $hbox;
}
sub new_text_box_for {
my $hbox = Gtk2::HBox->new (FALSE, 5);
my $glabel = Gtk2::Label->new ($label);
my $gentry = Gtk2::Entry->new;
+ $gentry->set_width_chars (8);
$$hash{$key}[GUI] = $gentry;
$gentry->set_text($HPVALUE{$name});
$gentry->signal_connect(changed => sub {
my ($w, $e) = @_;
&handle_int_value($w, $e, \$HPVALUE{$name}); # FIXME int only
});
- $hbox->pack_start ($glabel, FALSE, FALSE, 0);
- $hbox->pack_start ($gentry, FALSE, FALSE, 0);
+ $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
+ $hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
#
return $hbox;
}
my $button = Gtk2::ColorButton->new_with_color ($col);
$$hash{$key}[GUI] = $button;
$button->set_title ($label);
+ $button->set_relief ('none');
$button->signal_connect ('color-set' => sub {
my ($w, $e) = @_;
&handle_color_value($w, $e, \$HPVALUE{$name});
});
- $hbox->pack_start ($button, FALSE, FALSE, 0);
- $hbox->pack_start ($glabel, FALSE, FALSE, 0);
+ $hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
+ $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
#
return $hbox;
}
&handle_selection_value($w, $e, \$HPVALUE{$name});
});
$combo->set_active ($HPVALUE{$name});
- $hbox->pack_start ($glabel, FALSE, FALSE, 0);
- $hbox->pack_start ($combo, FALSE, FALSE, 0);
+ $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
+ $hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
#
return $hbox;
}
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 $tb_max_use = &new_text_box_for(\%pr::oth, 'max_use');
my $tb_min_time = &new_text_box_for(\%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);
- $of->pack_start ($ab_frame, FALSE, FALSE, 0);
- $of->pack_start ($mem_frame, FALSE, FALSE, 0);
+ $of->pack_start ($ab_frame, FALSE, FALSE, FRAME_SPC);
+ $of->pack_start ($mem_frame, FALSE, FALSE, FRAME_SPC);
return $of;
}
sub new_gui_page() {
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 (\%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_h_scroll = &new_check_button_for (\%pr::gui, 'h_scroll');
- my $cb_swp_from = &new_check_button_for (\%pr::gui, 'swp_from');
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_strip_all = &new_check_button_for (\%pr::gui, 'strip_all');
- my $cb_strip_sum = &new_check_button_for (\%pr::gui, 'strip_sum');
- my $sb_v_scroll = &new_selection_box_for (\%pr::gui, 'v_scroll');
- my $tb_strip_off = &new_text_box_for (\%pr::gui, 'strip_off');
- $gf->pack_start ($cb_b_unread, FALSE, FALSE, 0);
+ $gf->pack_start ($stripes_frame, FALSE, FALSE, FRAME_SPC);
+ $gf->pack_start ($mlist_frame, 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_h_scroll, FALSE, FALSE, 0);
- $gf->pack_start ($cb_swp_from, 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_strip_all, FALSE, FALSE, 0);
- $gf->pack_start ($cb_strip_sum, FALSE, FALSE, 0);
- $gf->pack_start ($sb_v_scroll, FALSE, FALSE, 0);
- $gf->pack_start ($tb_strip_off, FALSE, FALSE, 0);
+ $gf->pack_start ($sbar_frame, FALSE, FALSE, FRAME_SPC);
+
return $gf;
}
sub new_behaviour_page() {
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 (\%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 (\%pr::beh, 'up_step');
my $tb_thread_a = &new_text_box_for (\%pr::beh, 'thread_a');
- my $cb_dangerous = &new_check_button_for (\%pr::beh, 'dangerous');
+
+ 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_skip_ssl = &new_check_button_for (\%pr::beh, 'skip_ssl');
- my $cb_unsafe_ssl = &new_check_button_for (\%pr::beh, 'unsafe_ssl');
my $cb_use_utf8 = &new_check_button_for (\%pr::beh, 'use_utf8');
- my $cb_warn_dnd = &new_check_button_for (\%pr::beh, 'warn_dnd');
-
- $bf->pack_start ($tb_hoover_t, FALSE, FALSE, 0);
+ my $cb_dangerous = &new_check_button_for (\%pr::beh, 'dangerous');
+ 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);
+ $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 ($tb_up_step, FALSE, FALSE, 0);
$bf->pack_start ($tb_thread_a, FALSE, FALSE, 0);
- $bf->pack_start ($cb_dangerous, FALSE, FALSE, 0);
- $bf->pack_start ($cb_flowed, FALSE, FALSE, 0);
- $bf->pack_start ($cb_parts_rw, FALSE, FALSE, 0);
- $bf->pack_start ($cb_skip_ssl, FALSE, FALSE, 0);
- $bf->pack_start ($cb_unsafe_ssl, FALSE, FALSE, 0);
- $bf->pack_start ($cb_use_utf8, FALSE, FALSE, 0);
- $bf->pack_start ($cb_warn_dnd, FALSE, FALSE, 0);
+ $bf->pack_start ($msgs_frame, 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 $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);
$cf->pack_start ($msgview_frame, FALSE, FALSE, 0);
$cf->pack_start ($log_frame, FALSE, FALSE, 0);
+
return $cf;
}
my ($parent) = @_;
my $title = $xl::s{about_title};
my $lic = $xl::s{about_license};
+ my $vers = $xl::s{about_version} . " $VERSION";
my $license =
"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
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 $holder = "Ricardo Mones <ricardo\@mones.org>";
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>Copyright 2007 by Ricardo Mones <ricardo\@mones.org></span>\n\n<span size=\"large\">$lic</span>\n\n<span size=\"small\">$license</span>");
+ "<span size=\"x-large\" weight=\"bold\">$title</span>\n"
+ . "<span size=\"large\">$vers</span>\n"
+ . "<span>Copyright $year by $holder</span>\n\n"
+ . "<span size=\"large\">$lic</span>\n\n"
+ . "<span size=\"small\">$license</span>");
$dialog->set_title ($xl::s{about});
#
return $dialog;
return $hbox;
}
-# initialise values
+# initialise
&load_preferences;
&init_hidden_preferences;
# create main GUI
my $window = Gtk2::Window->new ('toplevel');
my $box = Gtk2::VBox->new (FALSE, 5);
+$box->set_border_width(3);
my $about = &new_about_dialog;
$box->pack_start (&new_notebook, FALSE, FALSE, 0);
$box->pack_end (&new_button_box ($about), FALSE, FALSE, 0);
-
+$window->signal_connect (delete_event => sub { Gtk2->main_quit });
$window->set_title ($xl::s{win_title});
$window->add ($box);
$window->show_all;
projects / clawsker.git / blobdiff