From b0cb608c38e459e0bbe7a0305204051c9e657ad0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Jan 2003 16:50:49 +0000 Subject: rework autologin dialog box --- perl-install/any.pm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index 22c02dbcb..f6178323a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -508,18 +508,16 @@ sub autologin { my @users = map { $_->{name} } @{$o->{users} || []}; if (@wm > 1 && @users && !$o->{authentication}{NIS} && $o->{security} <= 2) { - add2hash_($o, { autologin => $users[0] }); + my $use_autologin = 1; $in->ask_from_( { title => N("Autologin"), - messages => N("I can set up your computer to automatically log on one user. -Do you want to use this feature?"), - ok => N("Yes"), - cancel => N("No") }, - [ { label => N("Choose the default user:"), val => \$o->{autologin}, list => \@users }, - { label => N("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm } ] - ) - or delete $o->{autologin}; + messages => N("I can set up your computer to automatically log on one user.") }, + [ { label => N("Do you want to use this feature?"), val => \$use_autologin, type => 'bool' }, + { label => N("Choose the default user:"), val => \$o->{autologin}, list => \@users, disabled => sub { !$use_autologin } }, + { label => N("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm, disabled => sub { !$use_autologin } } ] + ); + delete $o->{autologin} if !$use_autologin; } else { delete $o->{autologin}; } -- cgit v1.2.1