summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-03 08:01:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-03 08:01:11 +0000
commitfa99c30b55ec476fccdf2a5089b9d865f3fd219f (patch)
tree28cf74b9493451fd989510181bf83f1716a462e6 /perl-install/standalone
parent9f194074adfecbd6e60897732511f32855acd163 (diff)
downloaddrakx-fa99c30b55ec476fccdf2a5089b9d865f3fd219f.tar
drakx-fa99c30b55ec476fccdf2a5089b9d865f3fd219f.tar.gz
drakx-fa99c30b55ec476fccdf2a5089b9d865f3fd219f.tar.bz2
drakx-fa99c30b55ec476fccdf2a5089b9d865f3fd219f.tar.xz
drakx-fa99c30b55ec476fccdf2a5089b9d865f3fd219f.zip
display again the first notebook page
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draksec22
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index bed8bc6c1..128c21453 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -132,19 +132,19 @@ my $common_opts = { col_spacings => 10, row_spacings => 5 };
######################## BASIC OPTIONS PAGE ################################
my $seclevel_entry = new Gtk2::Combo();
-$notebook->append_page(gtkpack(new Gtk2::VBox(0, 0),
- basic_seclevel_explanations($msec),
- create_packtable($common_opts,
- [ basic_seclevel_option(\$seclevel_entry, $msec) ],
- [ new Gtk2::Label(N("Security Alerts:")),
- my $secadmin_check = new Gtk2::CheckButton ],
- [ new Gtk2::Label(N("Security Administrator:")),
- my $secadmin_entry = new Gtk2::Entry ])),
- new Gtk2::Label(N("Basic")));
-
+$notebook->append_page(gtkshow(gtkpack(new Gtk2::VBox(0, 0),
+ basic_seclevel_explanations($msec),
+ create_packtable($common_opts,
+ [ basic_seclevel_option(\$seclevel_entry, $msec) ],
+ [ new Gtk2::Label(N("Security Alerts:")),
+ my $secadmin_check = new Gtk2::CheckButton ],
+ [ new Gtk2::Label(N("Security Administrator:")),
+ my $secadmin_entry = new Gtk2::Entry ]))),
+ new Gtk2::Label(N("Basic")));
+
$secadmin_entry->set_text($msec->get_check_value("MAIL_USER"));
$secadmin_check->set_active(1) if $msec->get_check_value("MAIL_WARN") eq "yes";
-
+
######################### NETWORK & SYSTEM OPTIONS #########################
my @yesno_choices = qw(yes no default ignore);
my @alllocal_choices = qw(ALL LOCAL NONE default);