Add new hidden options for showing a warning when sending to more than N
authorwwp <wwp@free.fr>
Wed, 18 Jan 2017 15:58:06 +0000 (16:58 +0100)
committerwwp <wwp@free.fr>
Wed, 18 Jan 2017 15:58:06 +0000 (16:58 +0100)
recipients.

clawsker

index b5b62a3..f261bcb 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -144,6 +144,10 @@ sub _ {
     h_gui_zero_char => _('Replaces \'0\' with the given character in Folder List.'),
     l_gui_type_any => _('Editable headers'),
     h_gui_type_any => _('Allows to manually type any value in Compose Window header entries or just select from the available choices in the associated dropdown list.'),
+    l_gui_warn_send_multi => _('Warn when sending to more than'),
+    h_gui_warn_send_multi => _('Warn when sending to multiple recipients.'),
+    l_gui_warn_send_multi_threshold => _('recipients'),
+    h_gui_warn_send_multi_threshold => _('Warn when sending to multiple recipients.'),
     l_gui_next_del => _('Select next message on delete'),
     h_gui_next_del => _('When deleting a message, toggles between selecting the next one (newer message) or the previous one (older message).'),
 
@@ -525,6 +529,53 @@ sub new_text_box_for_int($$$) {
     return new_hbox_spaced_pack ($glabel, $gentry);
 }
 
+sub check_button_and_text_box_update_sens($$$) {
+    my ($cb, $gentry, $glabel) = @_;
+    $gentry->set_sensitive ($cb->get_active);
+    $glabel->set_sensitive ($cb->get_active);
+}
+
+sub new_check_button_and_text_box_for_int($$$$) {
+    my ($hash, $key, $key2, $vhash) = @_;
+    my $name = $$hash{$key}[NAME];
+    my $label = $$hash{$key}[LABEL];
+    #
+    my $cb = Gtk2::CheckButton->new ($label);
+    my $value = $$vhash{$name};
+    $value //= $$hash{$key}[CMDEF];
+    $cb->set_active ($value eq '1');
+    set_widget_hint ($cb, $$hash{$key}[DESC]);
+    set_widget_sens ($cb, $$hash{$key}[CMVER]);
+       #
+    my $name2 = $$hash{$key2}[NAME];
+    my $label2 = $$hash{$key2}[LABEL];
+    my @type = split (/,/, $$hash{$key2}[TYPE]);
+    push (@type, 0), push (@type, 10000) unless ($#type > 0);
+    #
+    my $pagei = int (($type[2] - $type[1]) / 10);
+    my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
+    my $value2 = $$vhash{$name2};
+    my $glabel = Gtk2::Label->new ($label2);
+    $value2 //= $$hash{$key2}[CMDEF];
+    $gentry->set_numeric (TRUE);
+    $gentry->set_value ($value2);
+    $gentry->signal_connect('value-changed' => sub {
+            my ($w, $e) = @_;
+            handle_int_value ($w, $e, \$$vhash{$name});
+        });
+    set_widget_hint ($gentry, $$hash{$key2}[DESC]);
+    set_widget_sens ($gentry, $$hash{$key2}[CMVER]);
+    $glabel->set_sensitive ($gentry->sensitive);
+    #
+    $cb->signal_connect ('clicked' => sub {
+                   my ($w, $e) = @_;
+            handle_bool_value ($w, $e, \$$vhash{$name});
+                       check_button_and_text_box_update_sens($w, $gentry, $glabel);
+       });
+       #
+    return new_hbox_spaced_pack ($cb, $gentry, $glabel);
+}
+
 sub new_text_box_for_nchar($$$) {
     my ($hash, $key, $vhash) = @_;
     my $name = $$hash{$key}[NAME];
@@ -849,6 +900,22 @@ sub new_other_page() {
         '3.12.0.44',
         '0',
     ],
+    warn_send_multi => [
+        'warn_sending_many_recipients',
+        $xl::s{l_gui_warn_send_multi},
+        $xl::s{l_gui_warn_send_multi},
+        'bool',
+        '3.14.1.125',
+        '0',
+    ],
+    warn_send_multi_threshold => [
+        'warn_sending_many_recipients_num',
+        $xl::s{l_gui_warn_send_multi_threshold},
+        $xl::s{l_gui_warn_send_multi_threshold},
+        'int,1,1000',
+        '3.14.1.125',
+        '2',
+    ],
     next_del => [
         'next_on_delete',
         $xl::s{l_gui_next_del},
@@ -893,7 +960,8 @@ sub new_gui_page() {
                          new_hbox_pack (
                              new_check_button_for (\%pr::gui, 'no_markup', \%HPVALUE),
                              new_check_button_for (\%pr::gui, 'margin_co', \%HPVALUE),
-                             new_check_button_for (\%pr::gui, 'type_any', \%HPVALUE)),
+                             new_check_button_for (\%pr::gui, 'type_any', \%HPVALUE),
+                             new_check_button_and_text_box_for_int (\%pr::gui, 'warn_send_multi', 'warn_send_multi_threshold', \%HPVALUE)),
                          $xl::s{compo_frame}, 'not-packed'),
                      FALSE, FALSE, FRAME_SPC);
     $gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);