--- trunk/lib/Frey/Action.pm	2008/12/09 20:31:30	768
+++ trunk/lib/Frey/Action.pm	2008/12/09 20:31:41	780
@@ -26,6 +26,14 @@
 	default => sub { {} },
 );
 
+has 'input_resize_step' => (
+	documentation => 'Resize input fields by this step',
+	is => 'rw',
+	isa => 'Int',
+#	required => 1,
+	default => 20,
+);
+
 =head2 required
 
   my @required_attributes = $self->required;
@@ -181,7 +189,8 @@
 
 		$default->{$name} = $value unless defined $default->{$name};
 
-		$value_html = qq|<input type="$type" name="$name" title="$attr_type" value="$value">| unless $value_html;
+		my $size = ( int( length($value) / $self->input_resize_step ) + 1 ) * $self->input_resize_step;
+		$value_html = qq|<input type="$type" name="$name" title="$attr_type" value="$value" size="$size">| unless $value_html;
 
 #		warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
 		$form .= qq|<label for="$name"$label_title>$label</label>$value_html<br>|;