added Field::File and Widget::Image

1 files changed, 11 insertions, 34 deletions

diff --git a/lib/Reaction/UI/ViewPort/Field/File.pm b/lib/Reaction/UI/ViewPort/Field/File.pm
index b3af0bc..d55091c 100644
--- a/lib/Reaction/UI/ViewPort/Field/File.pm
+++ b/lib/Reaction/UI/ViewPort/Field/File.pm
@@ -1,47 +1,24 @@
 package Reaction::UI::ViewPort::Field::File;
 
 use Reaction::Class;
-use Reaction::Types::File;
 
 class File is 'Reaction::UI::ViewPort::Field', which {
 
-  has '+value' => (isa => 'File', required => 0);
+  has uri    => ( is => 'rw', lazy_build => 1);
 
-  #has '+layout' => (default => 'file');
+  has action => (isa => 'CodeRef', is => 'rw', required   => 1);
 
-  override value_string => sub { '' };
-
-  override apply_our_events => sub {
-    my ($self, $ctx, $events) = @_;
-    my $value_key = join(':', $self->location, 'value');
-    if (my $upload = $ctx->req->upload($value_key)) {
-      local $events->{$value_key} = $upload;
-      return super();
-    } else {
-      return super();
-    }
+  implements _build_uri => as{
+    my $self = shift;
+    my $c = $self->ctx;
+    my ($c_name, $a_name, @rest) = @{ $self->action->($self->model, $c) };
+    $c->uri_for($c->controller($c_name)->action_for($a_name),@rest);
   };
 
+  implements _value_string_from_value => as {
+      shift->value->stringify;
+  };
+    
 };
 
 1;
-
-=head1 NAME
-
-Reaction::UI::ViewPort::Field::File
-
-=head1 DESCRIPTION
-
-=head1 SEE ALSO
-
-=head2 L<Reaction::UI::ViewPort::Field>
-
-=head1 AUTHORS
-
-See L<Reaction::Class> for authors.
-
-=head1 LICENSE
-
-See L<Reaction::Class> for the license.
-
-=cut