From 458bee429652e2b3e73996caf6547e75bdc05ae8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 17 Feb 2003 12:09:28 +0000 Subject: enhance summary layout --- perl-install/install_steps_gtk.pm | 6 ++++-- 1 file 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 ])) )); -- cgit v1.2.1