tChange 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 18432cb3ce4b608822a449d54cc86ae433acb75b
DIR parent 3d489574f0be210bfb9dadd40477b445d4f5ed60
HTML Author: lumidify <nobody@lumidify.org>
Date: Mon, 15 Mar 2021 09:24:22 +0100
Change mnemonics for word choice window
Diffstat:
M transliterate.pl | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -454,10 +454,13 @@ sub prompt_choose_word {
}
@choices = sort {$choice_nums{$b} <=> $choice_nums{$a}} @choices;
}
- my $cur_num = 1;
+ my $cur_num = 5;
foreach my $word_choice (@choices) {
# the mnemonics don't make sense when the number has more than one digit
- my $choice_label = $cur_num <= 9 ? "_$cur_num: $word_choice" : $word_choice;
+ # 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 $button = Gtk3::Button->new($choice_label);
$button->signal_connect(
clicked => sub {