From 7c9ab4c1127c2f36a148f6d6168dc5c754c4693f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 6 Feb 2004 15:54:16 +0000 Subject: workaround gtk limitation #133489 --- perl-install/standalone/draksec | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index a83d0c9c7..929d125ac 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -183,9 +183,9 @@ my $help_msg = N("The following options can be set to customize your\nsystem sec foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ]) { my ($domain, $label) = @$_; my %values; - $notebook->append_page(gtkshow(create_scrolled_window(gtkpack_(new Gtk2::VBox(0, 0), - 0, Gtk2::Label->new($help_msg), - 1, create_packtable($common_opts, + $notebook->append_page(gtkshow(gtkpack_(Gtk2::VBox->new, + 0, Gtk2::Label->new($help_msg), + 1, create_scrolled_window(create_packtable($common_opts, map { my $i = $_; @@ -202,9 +202,11 @@ foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ]) $entry->set_text(to_i18n($msec->get_function_value($opt))); set_help_tip($entry, $default, $opt); [ Gtk2::WrappedLabel->new($i), resize($values{$i}) ]; - } sort map { $fields{$_} || $_ } $msec->list_functions($domain))), - [ 'never', 'automatic' ], - ) + } sort map { $fields{$_} || $_ } $msec->list_functions($domain), + ), + [ 'never', 'automatic' ], + ), + ) ), Gtk2::WrappedLabel->new($label)); $options_values{$domain} = \%values; @@ -213,9 +215,9 @@ foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ]) ######################## PERIODIC CHECKS ################################### my %security_checks_value; -$notebook->append_page(gtkshow(create_scrolled_window(gtkpack_(new Gtk2::VBox(0, 0), - 0, Gtk2::Label->new($help_msg), - 1, create_packtable($common_opts, +$notebook->append_page(gtkshow(gtkpack_(Gtk2::VBox->new, + 0, Gtk2::Label->new($help_msg), + 1, create_scrolled_window(create_packtable($common_opts, map { my $i = $_; my $opt = $inv_fields{$i} || $i; -- cgit v1.2.1