- cosmetics fixes

1 files changed, 5 insertions, 5 deletions

diff --git a/userdrake b/userdrake
index 2e7fef2..8ccbb53 100755
--- a/userdrake
+++ b/userdrake
@@ -472,9 +472,9 @@ sub GtkEntryHidePass {
     $e
 }
 sub GtkEntrySized {
-    my $i = shift;
+    my ($i, $spac) = @_;
     my $e = Gtk2::Entry->new_with_max_length($i);
-    $e->set_size_request(30, 20);
+    $e->set_size_request($spac, 20);
     $e
 }
 sub BuildUui {
@@ -527,9 +527,9 @@ sub Edit {
 				0, $us->{o}->{acheckexpire} = Gtk2::CheckButton->new(N("Enable account expiration")),
 				0, gtkpack__(my $h = Gtk2::HBox->new(0, 10),
 					     0, Gtk2::Label->new(N("Account expires   MM/DD/YYYY :")), 
-					     0, map { my $s = $_->[0]; my $t = $_->[1];
-						      $us->{o}->{$s} = GtkEntrySized($t), 
-						  } (['expm', 2], ['expd', 2], ['expy', 4]),
+					     0, map { my $s = $_->[0]; my $t = $_->[1]; my $s = $_->[2];
+						      $us->{o}->{$s} = GtkEntrySized($t, $s), 
+						  } (['expm', 2, 25], ['expd', 2, 25], ['expy', 4, 40]),
 					    ),
 				0, Gtk2::HSeparator->new,
 				0, $us->{o}->{lockuser} = Gtk2::CheckButton->new(N("Lock User Account"))