=head1 LICENSE
-Copyright (c) 2007 by Ricardo Mones
+Copyright (c) 2007-2008 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
my $main_window = undef;
my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
+$locale = "C" unless defined($locale);
setlocale (LC_ALL, $locale);
bindtextdomain ($NAME, sprintf ('%s/share/locale', $PREFIX));
textdomain ($NAME);
+my $SHOWHINTS = FALSE;
+$SHOWHINTS = TRUE if ($Gtk2::VERSION >= 1.040 and Gtk2->CHECK_VERSION (2, 12, 0));
+
sub _ {
my $str = shift;
my %par = @_;
use constant LABEL => 1; # the label on the GUI
use constant DESC => 2; # the description for the hint/help
use constant TYPE => 3; # data type: bool, int, float, string, color
-use constant GUI => 4; # GUI element
+use constant CMVER => 4; # lowest Claws Mail version the feature exists
+use constant CMDEF => 5; # default value for the preference in Claws Mail
+use constant GUI => 6; # GUI element
# constants for GUI spacing
use constant HBOX_SPC => 5;
sub log_message {
my ($mesg, $fatal) = @_;
+ if (defined($fatal) && $fatal eq 'die') {
+ die "$NAME: $mesg\n";
+ }
if ($VERBOSE) {
- if (defined($fatal) && $fatal eq 'die') {
- die "$NAME: $mesg\n";
- }
print "$NAME: $mesg\n";
}
}
return TRUE;
}
+sub set_widget_hint() {
+ if ($SHOWHINTS) {
+ my ($wdgt, $hint) = @_;
+ $wdgt->set_tooltip_text ($hint);
+ $wdgt->set_has_tooltip (TRUE);
+ }
+}
+
# graphic element creation
sub new_check_button_for {
my ($w, $e) = @_;
&handle_bool_value($w, $e, \$HPVALUE{$name});
});
+ &set_widget_hint ($cb, $$hash{$key}[DESC]);
$hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
#
return $hbox;
my ($w, $e) = @_;
&handle_int_value($w, $e, \$HPVALUE{$name}); # FIXME int only
});
+ &set_widget_hint ($gentry, $$hash{$key}[DESC]);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
$hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
#
my ($w, $e) = @_;
&handle_color_value($w, $e, \$HPVALUE{$name});
});
+ &set_widget_hint ($button, $$hash{$key}[DESC]);
$hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
#
&handle_selection_value($w, $e, \$HPVALUE{$name});
});
$combo->set_active ($HPVALUE{$name});
+ &set_widget_hint ($combo, $$hash{$key}[DESC]);
$hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
$hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
#
$xl::s{l_oth_use_dlg},
$xl::s{h_oth_use_dlg},
'bool',
+ '2.7.0',
+ '0',
undef,
],
max_use => [
$xl::s{l_oth_max_use},
$xl::s{h_oth_max_use},
'int',
+ '0.0.0',
+ '4096',
undef,
],
min_time => [
$xl::s{l_oth_min_time},
$xl::s{h_oth_min_time},
'int',
+ '0.0.0',
+ '15',
undef,
],
);
$xl::s{l_gui_b_unread},
$xl::s{h_gui_b_unread},
'bool',
+ '0.0.0',
+ '1',
undef,
],
no_markup => [
'compose_no_markup',
$xl::s{l_gui_no_markup},
$xl::s{h_gui_no_markup},
- 'bool',
+ 'bool',
+ '0.0.0',
+ '0',
undef,
],
dot_lines => [
$xl::s{l_gui_dot_lines},
$xl::s{h_gui_dot_lines},
'bool',
+ '0.0.0',
+ '0',
undef,
],
h_scroll => [
$xl::s{l_gui_h_scroll},
$xl::s{h_gui_h_scroll},
'bool',
+ '0.0.0',
+ '1',
undef,
],
swp_from => [
$xl::s{l_gui_swp_from},
$xl::s{h_gui_swp_from},
'bool',
+ '0.0.0',
+ '0',
undef,
],
v_scroll => [
$xl::s{l_gui_v_scroll},
$xl::s{h_gui_v_scroll},
'0=l_gui_v_scroll_show;1=l_gui_v_scroll_auto;2=l_gui_v_scroll_hide',
+ '0.0.0',
+ '0',
undef,
],
strip_off => [
$xl::s{l_gui_strip_off},
$xl::s{h_gui_strip_off},
'int',
+ '0.0.0',
+ '4000',
undef,
],
cursor_v => [
$xl::s{l_gui_cursor_v},
$xl::s{h_gui_cursor_v},
'bool',
+ '0.0.0',
+ '0',
undef,
],
toolbar_d => [
$xl::s{l_gui_toolbar_d},
$xl::s{h_gui_toolbar_d},
'bool',
+ '0.0.0',
+ '0',
undef,
],
strip_all => [
$xl::s{l_gui_strip_all},
$xl::s{h_gui_strip_all},
'bool',
+ '0.0.0',
+ '1',
undef,
],
strip_sum => [
$xl::s{l_gui_strip_sum},
$xl::s{h_gui_strip_sum},
'bool',
+ '0.0.0',
+ '1',
undef,
],
);
$xl::s{l_beh_hover_t},
$xl::s{h_beh_hover_t},
'int',
+ '0.0.0',
+ '500',
undef,
],
dangerous => [
$xl::s{l_beh_dangerous},
$xl::s{h_beh_dangerous},
'bool',
+ '0.0.0',
+ '0',
undef,
],
flowed => [
$xl::s{l_beh_flowed},
$xl::s{h_beh_flowed},
'bool',
+ '0.0.0',
+ '0',
undef,
],
parts_rw => [
$xl::s{l_beh_parts_rw},
$xl::s{h_beh_parts_rw},
'bool',
+ '0.0.0',
+ '0',
undef,
],
skip_ssl => [
$xl::s{l_beh_skip_ssl},
$xl::s{h_beh_skip_ssl},
'bool',
+ '0.0.0',
+ '0',
undef,
],
up_step => [
$xl::s{l_beh_up_step},
$xl::s{h_beh_up_step},
'int',
+ '0.0.0',
+ '10',
undef,
],
thread_a => [
$xl::s{l_beh_thread_a},
$xl::s{h_beh_thread_a},
'int',
+ '0.0.0',
+ '10',
undef,
],
unsafe_ssl => [
$xl::s{l_beh_unsafe_ssl},
$xl::s{h_beh_unsafe_ssl},
'bool',
+ '0.0.0',
+ '0',
undef,
],
use_utf8 => [
$xl::s{l_beh_use_utf8},
$xl::s{h_beh_use_utf8},
'bool',
+ '0.0.0',
+ '0',
undef,
],
warn_dnd => [
$xl::s{l_beh_warn_dnd},
$xl::s{h_beh_warn_dnd},
'bool',
+ '0.0.0',
+ '1',
undef,
],
);
$xl::s{l_col_emphasis},
$xl::s{h_col_emphasis},
'color',
+ '0.0.0',
+ '#0000cf',
undef,
],
log_err => [
$xl::s{l_col_log_err},
$xl::s{h_col_log_err},
'color',
+ '0.0.0',
+ '#af0000',
undef,
],
log_in => [
$xl::s{l_col_log_in},
$xl::s{h_col_log_in},
'color',
+ '0.0.0',
+ '#000000',
undef,
],
log_msg => [
$xl::s{l_col_log_msg},
$xl::s{h_col_log_msg},
'color',
+ '0.0.0',
+ '#00af00',
undef,
],
log_out => [
$xl::s{l_col_log_out},
$xl::s{h_col_log_out},
'color',
+ '0.0.0',
+ '#0000ef',
undef,
],
log_warn => [
$xl::s{l_col_log_warn},
$xl::s{h_col_log_warn},
'color',
+ '0.0.0',
+ '#af0000',
undef,
],
);
print $line;
print $xl::s{about_title} . "\n";
print $xl::s{about_version} . " $VERSION\n";
+ print "Perl-GLib " . $Glib::VERSION;
+ # version info stuff appeared in 1.040
+ if ($Glib::VERSION >= 1.040) {
+ print _(", built for ") . join(".", Glib->GET_VERSION_INFO)
+ . _(", running with ") . join(".", &Glib::major_version,
+ &Glib::minor_version, &Glib::micro_version);
+ }
+ print "\n";
+ print "Perl-GTK2 " . $Gtk2::VERSION;
+ if ($Gtk2::VERSION >= 1.040) {
+ print _(", built for ") . join(".", Gtk2->GET_VERSION_INFO)
+ . _(", running with ") . join(".", &Gtk2::major_version,
+ &Gtk2::minor_version, &Gtk2::micro_version);
+ }
+ print "\n";
print $line;
print _("Syntax:\n");
print _(" clawsker [options]\n");
print _(" --clawsrc <file> Uses <file> as full resource name.\n");
}
+# handle errors which don't allow to run
+sub command_line_fatal() {
+ my $reason = shift;
+ my $emsg = $xl::s{e_error} . $reason;
+ error_dialog ($emsg);
+ log_message ("$emsg", 'die');
+}
+
# parse the command line
sub parse_command_line() {
my $arg = 0;
};
/--alternate-config-dir/ && do {
++$arg;
- die "$xl::s{e_error}$xl::s{e_requireddir}\n"
+ &command_line_fatal ($xl::s{e_requireddir})
unless defined($ARGV[$arg]);
- die "$xl::s{e_error}$xl::s{e_notadir}\n"
+ &command_line_fatal ($xl::s{e_notadir})
unless -d $ARGV[$arg];
$CONFIGDIR = $ARGV[$arg];
$ALTCONFIGDIR = TRUE;
};
/--clawsrc/ && do {
++$arg;
- die "$xl::s{e_error}$xl::s{e_requiredfile}\n"
+ &command_line_fatal($xl::s{e_requiredfile})
unless defined($ARGV[$arg]);
- die "$xl::s{e_error}$xl::s{e_notafile}\n"
+ &command_line_fatal($xl::s{e_notafile})
unless -f $ARGV[$arg];
&set_rc_filename ($ARGV[$arg]);
last;
};
- /.*/ && die $xl::s{e_error}
- . _("unknown option '{opt}'.\n", opt => $ARGV[$arg]);
+ /.*/ && &command_line_fatal (
+ _("unknown option '{opt}'.\n", opt => $ARGV[$arg]));
}
++$arg;
}