diff options
author | Francois Pons <fpons@mandriva.com> | 2003-07-22 13:34:51 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2003-07-22 13:34:51 +0000 |
commit | 1ab82398a0b65895d3c39cbf44cee40daa20683a (patch) | |
tree | b1c73d2d213b4c3dd11915ed463a672af90baebd /perl-install/interactive/gtk.pm | |
parent | ac3c8f58ecc48f748dfef29fa450f8f4775b54d1 (diff) | |
download | drakx-1ab82398a0b65895d3c39cbf44cee40daa20683a.tar drakx-1ab82398a0b65895d3c39cbf44cee40daa20683a.tar.gz drakx-1ab82398a0b65895d3c39cbf44cee40daa20683a.tar.bz2 drakx-1ab82398a0b65895d3c39cbf44cee40daa20683a.tar.xz drakx-1ab82398a0b65895d3c39cbf44cee40daa20683a.zip |
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).
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r-- | perl-install/interactive/gtk.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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 { |