hack :( if ' ' is at the beginning of a text section, don't forget it, substitute

with an unbreakable space because gtk allocates too much space otherwise

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'};