From c26267fdbe8196da11186f0bda1ef7a013700411 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Feb 2003 12:34:49 +0000
Subject: (ask_users): focus the "name" field, and change the buttons name &
 place

---
 perl-install/any.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 60bca91ec..ebc8c5973 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -543,16 +543,18 @@ sub ask_users {
 	my $ret = $in->ask_from_(
 	    { title => N("Add user"),
 	      messages => N("Enter a user\n%s", $names),
-	      ok => N("Accept user"),
-	      cancel => $security < 4 || @$users ? N("Done") : '',
+	      focus_first => 1,
+	      if_(!$::isInstall, ok => N("Done")),
+	      cancel => N("Accept user"),
 	      callbacks => {
 	          focus_out => sub {
 		      if ($_[0] eq 0) {
 			  $u->{name} ||= lc first($u->{realname} =~ /([\w-]+)/);
 		      }
 		  },
-	          complete => $verif,
-                  canceled => sub { $u->{name} ? &$verif : 0 },
+	          complete => sub { $u->{name} ? &$verif : 0 },
+                  canceled => $verif,
+                  ok_disabled => sub { $security >= 4 && !@$users },
 	    } }, [ 
 	    { label => N("Real name"), val => \$u->{realname} },
 	    { label => N("User name"), val => \$u->{name} },
@@ -573,7 +575,7 @@ sub ask_users {
 
 	push @$users, $u if $u->{name};
 	$u = {};
-	$ret or return;
+	$ret and return;
     }
 }
 
-- 
cgit v1.2.1