From c83ade4f9605a8311a57057387116829ab20550f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 21 Jul 2003 16:52:13 +0000
Subject: fix infamous "when embedded draksec can be enlarged but never shrink
 back"

---
 perl-install/standalone/draksec | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone/draksec')

diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 991803cdd..48b61cc42 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -149,9 +149,9 @@ my $common_opts = { col_spacings => 10, row_spacings => 5, homogenous => 1 };
 ######################## BASIC OPTIONS PAGE ################################
 my ($seclevel_entry, $secadmin_entry);
 
-$notebook->append_page(gtkshow(gtkpack(new Gtk2::VBox(0, 0),
-                                       basic_seclevel_explanations(),
-                                       create_packtable($common_opts,
+$notebook->append_page(gtkshow(gtkpack_(new Gtk2::VBox(0, 0),
+                                       1, basic_seclevel_explanations(),
+                                       0, create_packtable($common_opts,
                                                         [ 
                                                           do {
                                                               my @sec_levels = security::level::get_common_list();
@@ -211,7 +211,10 @@ foreach ([ 'network', N("Network Options") ], [ 'system', N("System Options") ])
                                                                                                                          ), 50, -1
                                                                                                                 )
                                                                                            ]
-                                                                                       } sort map { $fields{$_} || $_ } $msec->list_functions($domain))))),
+                                                                                       } sort map { $fields{$_} || $_ } $msec->list_functions($domain))),
+                                                          [ 'never', 'automatic' ],
+                                                         )
+                                  ),
                            new_wrapped_label($label));
     $options_values{$domain} = \%values;
 }
-- 
cgit v1.2.1