tFix reset button in unknown word window - transliterate - Transliteration engine
HTML git clone git://lumidify.org/transliterate.git
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit c78c54b0fbc4a84c11673206c0a1fb6526cd6136
DIR parent 8e203f4dca8ba5b066ec34e0aa6a84350ac59135
HTML Author: lumidify <nobody@lumidify.org>
Date: Tue, 14 Apr 2020 12:59:50 +0200
Fix reset button in unknown word window
Diffstat:
M transliterate.pl | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -114,6 +114,7 @@ sub prompt_unknown_word {
# selected text as the word to be replaced - useful when only part
# of the entire word that was not found has to be replaced
my $make_context_box = sub {
+ # look, don't blame me for these miserably named variables...
my ($ctxtl, $wrd, $ctxtr, $lbl) = @_;
my $hbox = Gtk2::HBox->new(FALSE, 5);
my $label = Gtk2::Label->new($lbl);
t@@ -139,7 +140,7 @@ sub prompt_unknown_word {
$vbox->pack_start($hbox, FALSE, FALSE, 0);
$hbox = Gtk2::HBox->new(FALSE, 5);
$hbox->pack_start($button, FALSE, FALSE, 0);
- my $complete_text = $ctxtl . $word . $ctxtr;
+ my $complete_text = $ctxtl . $wrd . $ctxtr;
$button = Gtk2::Button->new("Reset text");
$button->signal_connect(
clicked => sub {