--- trunk/lib/Frey/Action.pm	2009/01/06 16:05:05	949
+++ trunk/lib/Frey/Action.pm	2009/01/06 23:42:59	950
@@ -116,10 +116,14 @@
 	warn "# $class config = ",dump( $params_config ) if $self->debug;
 
 	my $form;
+	my $form_id = $class;
+	$form_id =~ s{\W+}{_}g;
 
 	sub select_values {
 		my ( $name, $attr_type, $values ) = @_;
 
+		$attr_type ||= '?' and warn "$name doesn't have attr_type";
+
 		my $max_value_len = 0;
 		my @values;
 		my $html = '';
@@ -160,6 +164,18 @@
 						$delimiter
 				|) } @values
 			);
+			if ( $radio ) {
+				
+				my $size = int( $max_value_len / $self->input_step_size ) + 1;
+				$size = 5 if $size > 5;
+				$size *= $self->input_step_size;
+				$radio .= qq|
+					<span>
+					<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>
+				|;
+			}
 			$html = qq|<div style="display: block;">$radio</div>|;
 		}
 
@@ -168,6 +184,7 @@
 			$html
 	}
 
+
 	foreach my $checkbox ( split(/\s+/, $default->{'frey-checkboxes'} ) ) {
 		next if defined $default->{ $checkbox };
 
@@ -234,6 +251,8 @@
 	}
 	$form .= qq|<input type="hidden" name="frey-checkboxes" value="| . join(' ', @checkboxes) . qq|">| if @checkboxes;
 
+	$self->add_js('static/Frey/Action.js');
+
 	$self->add_css(qq|
 		label,input {
 			display: block;
@@ -241,6 +260,10 @@
 			margin-bottom: 10px;
 		}
 
+		input:focus {
+			border-color: #cc0;
+		}
+
 		label {
 			text-align: right;
 			width: ${label_width}ex;
@@ -259,7 +282,7 @@
 
 	$html = qq|
 		<h1>$class params</h1>
-		<form method="post">
+		<form name="$form_id" id="$form_id" method="post">
 		$form
 		<input type="submit" value="Run $class">
 		</form>