From 4c5fecca3010be9265f15df26a763f1e308ca7dc Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Aug 2008 13:45:09 +0000 Subject: (create_box_with_title) set saner margins --- perl-install/ugtk2.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 0b4176af2..39e0e5658 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -340,7 +340,8 @@ 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->set_left_margin(12); + $wtext->set_right_margin(12); $wtext->can_focus($has_scroll); my $width = 400; my $scroll = gtknew('ScrolledWindow', child => $wtext, width => $width, height => 200); -- cgit v1.2.1