commit 18432cb3ce4b608822a449d54cc86ae433acb75b parent 3d489574f0be210bfb9dadd40477b445d4f5ed60 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(-)
diff --git a/transliterate.pl b/transliterate.pl @@ -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 {