transliterate

commit f29c11dc27f85ba21535448c5d972fe766f0c5c9
parent 2b32e7b889de2f89a1f4a6c0dd5ca7a441d65fae
Author: lumidify <nobody@lumidify.org>
Date:   Tue,  9 Mar 2021 11:05:34 +0100

Remove mnemonic for "Retry without"

A mnemonic for each of the options can be defined in the config by
just putting an underscore before the character, e.g. "_diacritics".

Diffstat:
M
transliterate.pl
 | 
7
-------

1 file changed, 0 insertions(+), 7 deletions(-)
diff --git a/transliterate.pl b/transliterate.pl
@@ -211,12 +211,8 @@ sub prompt_unknown_word {
 		# Pressing Alt+e just activates the first of the retrywithout buttons
 		$label = Gtk2::Label->new_with_mnemonic("R_etry without: ");
 		$hbox->pack_start($label, FALSE, FALSE, 0);
-		my $first_button = 0;
 		foreach my $without (@{$config->{"retrywithout"}}) {
 			$button = Gtk2::Button->new("$without->[0]");
-			if (!$first_button) {
-				$first_button = $button;
-			}
 			$button->signal_connect(
 				clicked => sub {
 					my @chars = @{$without}[1..$#$without];
@@ -228,9 +224,6 @@ sub prompt_unknown_word {
 				}, $window);
 			$hbox->pack_start($button, FALSE, FALSE, 0);
 		}
-		if ($first_button) {
-			$label->set_mnemonic_widget($first_button);
-		}
 		$vbox->pack_start($hbox, FALSE, FALSE, 0);
 	}