diff options
author | Guillaume Cottenceau <gc@mandriva.com> | 2004-01-30 15:03:17 +0000 |
---|---|---|
committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-01-30 15:03:17 +0000 |
commit | 968545ca98d391949eac89a1cf168f0c1812fc7f (patch) | |
tree | 6cb6794fd62e964253182fae58dfc64873cc4821 /perl-install | |
parent | 4b04d5db1b78e2a68a5db20154e437ce85ab638c (diff) | |
download | drakx-backup-do-not-use-968545ca98d391949eac89a1cf168f0c1812fc7f.tar drakx-backup-do-not-use-968545ca98d391949eac89a1cf168f0c1812fc7f.tar.gz drakx-backup-do-not-use-968545ca98d391949eac89a1cf168f0c1812fc7f.tar.bz2 drakx-backup-do-not-use-968545ca98d391949eac89a1cf168f0c1812fc7f.tar.xz drakx-backup-do-not-use-968545ca98d391949eac89a1cf168f0c1812fc7f.zip |
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
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/ugtk2.pm | 3 |
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'}; |