From 2d0540a0bc8565260c8ed0122dce5fb86e1d7c0b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Aug 2008 13:29:41 +0000 Subject: (create_box_with_title) justify big texts --- perl-install/ugtk2.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index ea084cf1e..0b4176af2 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -339,6 +339,7 @@ sub create_box_with_title { chomp(my $text = join("\n", @l)); my $wtext = gtknew('TextView', text => markup_to_TextView_format($text)); + $wtext->set_justification('fill'); $wtext->set_left_margin(3); $wtext->can_focus($has_scroll); my $width = 400; -- cgit v1.2.1