added old hidden property zero_replacement_char

[clawsker.git] / clawsker

diff --git a/clawsker b/clawsker
index 6c1a01aa7172bbd43dd1a5567c93e36d3e055ad3..2086375669bdf709cc9de22fe0bf23cfd93d20d8 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -8,6 +8,7 @@ use Glib qw(TRUE FALSE);
 use Gtk2 -init;
 use POSIX qw(setlocale);
 use Locale::gettext;
+use Encode;
 
 my $NAME = 'clawsker';
 my $PREFIX = '@PREFIX@';
@@ -35,7 +36,7 @@ sub _ {
             $xla =~ s/\{$key\}/$par{$key}/g;
         }
     }
-    return $xla;
+    return decode_utf8($xla);
 }
 
 # default messages
@@ -111,6 +112,8 @@ sub _ {
     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.'),
@@ -270,6 +273,13 @@ sub handle_string_value {
     $$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);
@@ -421,6 +431,31 @@ sub new_text_box_for_int {
     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];
@@ -706,6 +741,15 @@ sub new_other_page() {
         '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() {
@@ -714,6 +758,7 @@ 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 (
@@ -750,6 +795,7 @@ sub new_gui_page() {
                              &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;
 }