diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-06 15:54:16 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-06 15:54:16 +0000 |
| commit | 7c9ab4c1127c2f36a148f6d6168dc5c754c4693f (patch) | |
| tree | 89018d755b529364064e549e8d51fc3a862e7a58 /perl-install | |
| parent | ca16874a94f09e39358b9c1570d6fb58e9d27c10 (diff) | |
| download | drakx-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')
| -rwxr-xr-x | perl-install/standalone/draksec | 20 |
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; |