use Gtk2 -init;
use POSIX qw(setlocale);
use Locale::gettext;
+use Encode;
my $NAME = 'clawsker';
my $PREFIX = '@PREFIX@';
$xla =~ s/\{$key\}/$par{$key}/g;
}
}
- return $xla;
+ return decode_utf8($xla);
}
# default messages
h_gui_margin_co => _('Shows a small margin in the Compose View.'),
l_gui_mview_date => _('Don\'t display localized date'),
h_gui_mview_date => _('Toggles localization of date format in Message View'),
+ l_gui_zero_char => _('Zero replacement character'),
+ h_gui_zero_char => _('Replaces \'0\' with the given character in Folder List'),
l_beh_hover_t => _('Drag \'n\' 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.'),
$$dataref = $widget->get_text ();
}
+sub handle_nchar_value {
+ my ($widget, $event, $dataref, $minlen) = @_;
+ $_ = substr ($widget->get_text (), 0, $minlen);
+ $widget->set_text ($_);
+ $$dataref = $_;
+}
+
sub gdk_color_from_str {
my ($str) = @_;
my ($rr, $gg, $bb) = (0, 0 ,0);
my $pagei = int (($type[2] - $type[1]) / 10);
my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
$gentry->set_numeric (TRUE);
+ $gentry->set_value ($HPVALUE{$name});
$$hash{$key}[GUI] = $gentry;
$gentry->signal_connect('value-changed' => sub {
my ($w, $e) = @_;
return $hbox;
}
+sub new_text_box_for_nchar {
+ my ($hash, $key) = @_;
+ my $name = $$hash{$key}[NAME];
+ my $label = $$hash{$key}[LABEL];
+ my @type = split (/,/, $$hash{$key}[TYPE]); # char,minlen,maxlen
+ my $hbox = Gtk2::HBox->new (FALSE, 5);
+ my $glabel = Gtk2::Label->new ($label);
+ my $gentry = Gtk2::Entry->new ();
+ $gentry->set_max_length($type[2]) if defined ($type[2]);
+ $gentry->set_width_chars(int ($type[2]) + 2) if defined ($type[2]);
+ $gentry->set_text ($HPVALUE{$name});
+ $$hash{$key}[GUI] = $gentry;
+ $gentry->signal_connect('key-release-event' => sub {
+ my ($w, $e) = @_;
+ &handle_nchar_value($w, $e, \$HPVALUE{$name}, $type[1]);
+ });
+ &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);
+ #
+ return $hbox;
+}
+
sub new_color_button_for {
my ($hash, $key) = @_;
my $name = $$hash{$key}[NAME];
'stripes_color_offset',
$xl::s{l_gui_strip_off},
$xl::s{h_gui_strip_off},
- 'int,0,10000', # no idea what this number means
+ 'int,0,40000', # no idea what this number means
'0.0.0',
'4000',
undef,
'0',
undef,
],
+ zero_char => [
+ 'zero_replacement_char',
+ $xl::s{l_gui_zero_char},
+ $xl::s{h_gui_zero_char},
+ 'char,1,1',
+ '2.8.1.77',
+ '0',
+ undef,
+ ],
);
sub new_gui_page() {
my $cb_dot_lines = &new_check_button_for (\%pr::gui, 'dot_lines');
my $cb_toolbar_d = &new_check_button_for (\%pr::gui, 'toolbar_d');
+ my $tb_zero_char = &new_text_box_for_nchar (\%pr::gui, 'zero_char');
$gf->pack_start (&new_subpage_frame (
&new_vbox_pack (
&new_selection_box_for (\%pr::gui, 'v_scroll')),
$xl::s{sbar_frame}, 'not-packed'),
FALSE, FALSE, FRAME_SPC);
+ $gf->pack_start ($tb_zero_char, FALSE, FALSE, 0);
return $gf;
}
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-2011";
+ my $year = "2007-2012";
my $holder = "Ricardo Mones <ricardo\@mones.org>";
my $url = "http://www.claws-mail.org/clawsker";