summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-06 15:54:16 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-06 15:54:16 +0000
commit7c9ab4c1127c2f36a148f6d6168dc5c754c4693f (patch)
tree89018d755b529364064e549e8d51fc3a862e7a58 /perl-install/standalone/draksec
parentca16874a94f09e39358b9c1570d6fb58e9d27c10 (diff)
downloaddrakx-7c9ab4c1127c2f36a148f6d6168dc5c754c4693f.tar
drakx-7c9ab4c1127c2f36a148f6d6168dc5c754c4693f.tar.gz
drakx-7c9ab4c1127c2f36a148f6d6168dc5c754c4693f.tar.bz2
drakx-7c9ab4c1127c2f36a148f6d6168dc5c754c4693f.tar.xz
drakx-7c9ab4c1127c2f36a148f6d6168dc5c754c4693f.zip
workaround gtk limitation #133489
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-xperl-install/standalone/draksec20
1 files changed, 11 insertions, 9 deletions
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;