From 1ab82398a0b65895d3c39cbf44cee40daa20683a Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 22 Jul 2003 13:34:51 +0000 Subject: tempory fix for title not having scroll bars (which sounds reasonable ?), as the size of the window is fixed the low part of the window is not visible. titi who makes the portage to newer Gtk2 has not tested this (again, for info). --- perl-install/interactive/gtk.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/interactive/gtk.pm') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index db5327981..391c0bc39 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -578,7 +578,11 @@ sub ask_fromW { my $advanced_total_size = $total_size - $always_total_size; - my $pack = create_box_with_title($mainw, @{$common->{messages}}); + #my $pack = create_box_with_title($mainw, @{$common->{messages}}); + #- FIXME need to fix the above line as no scroll bars are done, + my ($messages_title) = @{$common->{messages}}; + my $pack = create_box_with_title($mainw, length($messages_title) > 300 ? substr($messages_title, 0, 300)."\n... need scrollbar fixes here" : $messages_title); + my ($totalwidth, $totalheight) = (0, $mainw->{box_size}); my $set_default_size = sub { -- cgit v1.2.1