tEnable line wrap on text boxes - transliterate - Transliteration engine
HTML git clone git://lumidify.org/transliterate.git
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit 6e3b4e539cef6c69b34da1a197e5a8156262b69c
DIR parent 2673366f37c2b450e4996d8ef478c4675f39017e
HTML 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(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -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");
t@@ -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);
t@@ -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);