tRevert "Change mnemonics for word choice window" - 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 dddec77c866196b5b19831c2b313769d203c9bb6
DIR parent 18432cb3ce4b608822a449d54cc86ae433acb75b
HTML Author: lumidify <nobody@lumidify.org>
Date: Mon, 15 Mar 2021 13:57:10 +0100
Revert "Change mnemonics for word choice window"
This reverts commit 18432cb3ce4b608822a449d54cc86ae433acb75b.
Diffstat:
M transliterate.pl | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -454,13 +454,10 @@ sub prompt_choose_word {
}
@choices = sort {$choice_nums{$b} <=> $choice_nums{$a}} @choices;
}
- my $cur_num = 5;
+ my $cur_num = 1;
foreach my $word_choice (@choices) {
# the mnemonics don't make sense when the number has more than one digit
- # also, to work around other keyboard shortcuts used by the user of this
- # program, just use 5-0
- my $mod_num = $cur_num % 10;
- my $choice_label = $cur_num <= 10 ? "_$mod_num: $word_choice" : $word_choice;
+ my $choice_label = $cur_num <= 9 ? "_$cur_num: $word_choice" : $word_choice;
my $button = Gtk3::Button->new($choice_label);
$button->signal_connect(
clicked => sub {