transliterate

commit 6e3b4e539cef6c69b34da1a197e5a8156262b69c
parent 2673366f37c2b450e4996d8ef478c4675f39017e
Author: lumidify <nobody@lumidify.org>
Date:   Sat, 28 Mar 2020 08:14:18 +0100

Enable line wrap on text boxes

Diffstat:
M
transliterate.pl
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/transliterate.pl b/transliterate.pl
@@ -108,6 +108,7 @@ sub prompt_unknown_word {
 		my $hbox = Gtk2::HBox->new(FALSE, 0);
 		my $label = Gtk2::Label->new($lbl);
 		my $text = Gtk2::TextView->new;
+		$text->set_wrap_mode("word");
 		my $buffer = $text->get_buffer();
 		$buffer->set_text($ctxtr);
 		my $highlight = $buffer->create_tag("yellow_bg", "background", "yellow");
@@ -124,7 +125,7 @@ sub prompt_unknown_word {
 				}
 			}, $window);
 		$hbox->pack_start($label, FALSE, FALSE, 0);
-		$hbox->pack_start($text, FALSE, FALSE, 10);
+		$hbox->pack_start($text, TRUE, TRUE, 10);
 		$label->show;
 		$text->show;
 		$vbox->pack_start($hbox, FALSE, FALSE, 10);
@@ -296,11 +297,12 @@ sub prompt_choose_word {
 	my $hbox = Gtk2::HBox->new(FALSE, 0);
 	my $label = Gtk2::Label->new("Context: ");
 	my $text = Gtk2::TextView->new;
+	$text->set_wrap_mode("word");
 	my $buffer = $text->get_buffer();
 	my $highlight = $buffer->create_tag("yellow_bg", "background", "yellow");
 	$text->set_editable(FALSE);
 	$hbox->pack_start($label, FALSE, FALSE, 0);
-	$hbox->pack_start($text, FALSE, FALSE, 10);
+	$hbox->pack_start($text, TRUE, TRUE, 10);
 	$label->show;
 	$text->show;
 	$vbox->pack_start($hbox, FALSE, FALSE, 10);