--- branches/zimbardo/lib/Frey/Action.pm	2009/09/02 19:14:23	1184
+++ branches/zimbardo/lib/Frey/Action.pm	2009/09/15 08:58:17	1185
@@ -169,16 +169,31 @@
 			|) } @values
 		);
 		if ( $radio ) {
-			
+		
+			$self->add_js('static/Frey/Action.js');	# clear_radio
+			my $js = qq{
+				onfocus="clear_radio('$form_id','$name'); this.disabled = false;" onblur="clear_radio('$form_id','$name'); this.disabled = true;"
+			};
 			my $size = int( $max_value_len / $self->input_step_size ) + 1;
-			$size = 5 if $size > 5;
-			$size *= $self->input_step_size;
-			$radio .= qq|
-				<span>
+			my $span = qq|
 				<input type="radio" name="$name" value=" " onclick="document.getElementById('new-$name').focus();" >
-				<input type="text" name="new-$name" id="new-$name" onchange="clear_radio('$form_id','$name'); this.disable = false;" onblur="this.disable = true;" title="enter new value" size="$size">
-				</span>
 			|;
+
+			if ( $size <= 5 ) {
+
+				$size *= $self->input_step_size;
+				$span .= qq|<input type="text" name="new-$name" id="new-$name" $js title="enter new value" size="$size">|;
+
+			} else {
+
+				my $cols = $self->input_step_size * 5;
+				my $rows = int( $max_value_len / $cols ) + 1;
+				$span .= qq|<textarea name="new-$name" id="new-$name" cols=$cols rows=$rows $js title="enter new value"></textarea>|;
+
+			}
+
+			$radio .= qq|<span>$span</span>|;
+
 		}
 		$html = qq|<div style="display: block;">$radio</div>|;
 	}
@@ -339,8 +354,6 @@
 
 	$label_width += 2; # XXX padding left+right em
 
-	$self->add_js('static/Frey/Action.js');
-
 	$self->add_css(qq|
 		label,input {
 			display: block;
@@ -364,10 +377,6 @@
 			font-weight: bold;
 		}
 
-		input,
-		select {
-			margin-right: -${label_width}ex;
-		}
 		input.required,
 		select.required {
 			border-color: #c00;