- cosmetics changes

1 files changed, 4 insertions, 3 deletions

diff --git a/userdrake b/userdrake
index 6d9011c..cea22c8 100755
--- a/userdrake
+++ b/userdrake
@@ -229,7 +229,7 @@ sub AddUser {
 		    0, BuildUui(),
 		    0, Gtk2::HSeparator->new,
 		    0, $us->{o}->{createhomedir} = Gtk2::CheckButton->new(N("Create Home Directory")),
-		    0, gtkpack_(Gtk2::HBox->new(0, 4),
+		    0, gtkpack_(my $vv = Gtk2::HBox->new(0, 4),
 				0, Gtk2::Label->new(N("Home Directory: ")),
 				0, $us->{o}->{homedir} = Gtk2::Entry->new()
 			       ),
@@ -304,6 +304,7 @@ sub AddUser {
 		   )
 	  );
     map { $us->{o}->{$_}->set_active(1) } (qw(privategroup createhomedir));
+    GrayBox( $us->{o}->{createhomedir}, $vv, 1);
     $us->{o}->{login}->signal_connect('focus_out_event' => sub { 
 					  my $fullname = $us->{o}->{fullname}->get_text();
 					  $us->{o}->{homedir}->set_text("/home/".$us->{o}->{login}->get_text()); 
@@ -463,8 +464,8 @@ sub Delete {
 								 my $groupEnt = $ctx->LookupGroupById($usergid); 
 								 my $member = $groupEnt->MemberName(1, 0);
 								 if ($groupEnt && (scalar(@$member) == 0)) { $groupEnt->Gid($GetValue) > 499 and $ctx->GroupDel($groupEnt) }; 
-								 $checkhome->get_active() and $ctx->Clean($userEnt);
-								 $checkspool->get_active() and $ctx->Clean($userEnt);
+								 $checkhome->get_active() and $ctx->CleanHome($userEnt);
+								 $checkspool->get_active() and $ctx->CleanSpool($userEnt);
 								 Refresh($sysfilter, $stringsearch)
 							     }
 							     !$error and Gtk2->main_quit; $error = 0; })