summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 430c5f734..cb21fccf7 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -799,6 +799,9 @@ sub wrap_paragraph {
my $currentx;
foreach (@elements) {
my ($text, %options) = @$_;
+ #- hack :( if ' ' is at the beginning, don't forget it, substitute
+ #- with an unbreakable space because gtk allocates too much space otherwise
+ $text =~ /^ (.*)/ and $text = " $1";
my @newlines = get_text_coord($text, $widget4style, $max_width, $currentx, $ydec);
$currentx = $newlines[-1]{'x'} + $newlines[-1]{width};
$ydec = $newlines[-1]{'y'};