summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-07-22 13:34:51 +0000
committerFrancois Pons <fpons@mandriva.com>2003-07-22 13:34:51 +0000
commit1ab82398a0b65895d3c39cbf44cee40daa20683a (patch)
treeb1c73d2d213b4c3dd11915ed463a672af90baebd /perl-install/interactive/gtk.pm
parentac3c8f58ecc48f748dfef29fa450f8f4775b54d1 (diff)
downloaddrakx-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.pm6
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 {