transliterate

commit c78c54b0fbc4a84c11673206c0a1fb6526cd6136
parent 8e203f4dca8ba5b066ec34e0aa6a84350ac59135
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(-)
diff --git a/transliterate.pl b/transliterate.pl
@@ -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);
@@ -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 {