summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 54f3d1d5a..aed4a50ca 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -631,7 +631,9 @@ sub summary_prompt {
push @table, [ gtkpack__(Gtk2::HBox->new(0, 0), $e->{group}), '' ];
};
$e->{widget} = Gtk2::Label->new;
- push @table, [], [ gtkpack__(Gtk2::HBox->new(0, 20), '', $e->{widget}),
+ $e->{widget}->set_property(wrap => 1);
+ $e->{widget}->set_size_request($::windowwidth * 0.65, -1);
+ push @table, [], [ gtkpack__(Gtk2::HBox->new(0, 20), '', $e->{widget}),
gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
$w->{rwindow}->hide;
$e->{clicked}();
@@ -652,7 +654,7 @@ sub summary_prompt {
gtkadd($w->{window},
gtkpack_(Gtk2::VBox->new(0,5),
- 1, create_packtable({ mcc => 1 }, @table),
+ 1, create_scrolled_window(create_packtable({ mcc => 1 }, @table)),
0, $w->create_okcancel(undef, '', '', if_($help_sub, [ N("Help"), $help_sub, 1 ]))
));