tRemove mnemonic for "Retry without" - transliterate - Transliteration engine
HTML git clone git://lumidify.org/transliterate.git (fast, but not encrypted)
HTML git clone https://lumidify.org/git/transliterate.git (encrypted, but very slow)
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit f29c11dc27f85ba21535448c5d972fe766f0c5c9
DIR parent 2b32e7b889de2f89a1f4a6c0dd5ca7a441d65fae
HTML 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(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -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];
t@@ -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);
}