r15372@deathmachine (orig r421): groditi | 2007-12-17 11:32:16 -0500

 new renamed viewports

diff --cc lib/Reaction/UI/ViewPort/Field.pm
index 1712c75,d8d504a..71ee6fa
--- 1/lib/Reaction/UI/ViewPort/Field.pm
--- 2/lib/Reaction/UI/ViewPort/Field.pm
+++ b/lib/Reaction/UI/ViewPort/Field.pm
@@@ -4,97 -6,33 +6,69 @@@ use aliased 'Reaction::Meta::InterfaceM
  
  class Field is 'Reaction::UI::ViewPort', which {
  
-   has name => (
-     isa => 'Str', is => 'rw', required => 1
-   );
+   has value        => (is => 'rw', lazy_build => 1);
+   has name         => (is => 'rw', isa => 'Str', lazy_build => 1);
+   has label        => (is => 'rw', isa => 'Str', lazy_build => 1);
+   has value_string => (is => 'rw', isa => 'Str', lazy_build => 1);
  
-   has action => (
-     isa => 'Reaction::InterfaceModel::Action',
-     is => 'ro', required => 0, predicate => 'has_action',
-   );
+   has model     => (is => 'ro', isa => Object,             required => 1);
+   has attribute => (is => 'ro', isa => ParameterAttribute, required => 1);
  
-   has attribute => (
-     isa => 'Reaction::Meta::InterfaceModel::Action::ParameterAttribute',
-     is => 'ro', predicate => 'has_attribute',
-   );
+   implements adopt_value => as {};
  
-   has value => (
-     is => 'rw', lazy_build => 1, trigger_adopt('value'),
-     clearer => 'clear_value',
-   );
- 
-   has needs_sync => (
-     isa => 'Int', is => 'rw', default => 0
-   );
- 
-   has label => (isa => 'Str', is => 'rw', lazy_build => 1);
- 
-   has message => (
-     isa => 'Str', is => 'rw', required => 1, default => sub { '' }
-   );
- 
-   implements BUILD => as {
-     my ($self) = @_;
-     if (!$self->has_attribute != !$self->has_action) {
-       confess "Should have both action and attribute or neither";
-     }
-   };
+   implements _build_name => as { shift->attribute->name };
+   implements _build_value_string => as { shift->value };
  
    implements _build_label => as {
-     my ($self) = @_;
-     my $label = join(' ', map { ucfirst } split('_', $self->name));
-     # print STDERR "Field " . $self->name . " has label '$label'\n";
-     return $label;
+     join(' ', map { ucfirst } split('_', shift->name));
    };
  
+   #unlazify and move it to build. to deal with array use typeconstraints and coercions
    implements _build_value => as {
      my ($self) = @_;
-     if ($self->has_attribute) {
-       my $reader = $self->attribute->get_read_method;
-       my $predicate = $self->attribute->predicate;
-       if (!$predicate || $self->action->$predicate) {
-         return $self->action->$reader;
-       }
-     }
-     return '';
+     my $reader = $self->attribute->get_read_method;
+     my $predicate = $self->attribute->predicate;
+     #this is bound to blow the fuck if !model->$predicate what to do?
+     return $self->model->$reader if (!$predicate || $self->model->$predicate);
+     return;
    };
  
 +  implements adopt_value => as {
 +    my ($self) = @_;
 +    $self->needs_sync(1) if $self->has_attribute;
 +  };
 +
 +  implements value_string => as { shift->value };
 +
 +  implements sync_to_action => as {
 +    my ($self) = @_;
 +    return unless $self->needs_sync && $self->has_attribute && $self->has_value;
 +    my $attr = $self->attribute;
 +    if (my $tc = $attr->type_constraint) {
 +      my $value = $self->value;
 +      if ($tc->has_coercion) {
 +        $value = $tc->coercion->coerce($value);
 +      }
 +      my $error = $tc->validate($self->value);
 +      if (defined $error) {
 +        $self->message($error);
 +        return;
 +      }
 +    }
 +    my $writer = $attr->get_write_method;
 +    confess "No writer for attribute" unless defined($writer);
 +    $self->action->$writer($self->value);
 +    $self->needs_sync(0);
 +  };
 +
 +  implements sync_from_action => as {
 +    my ($self) = @_;
 +    return unless !$self->needs_sync && $self->has_attribute;
 +    $self->message($self->action->error_for($self->attribute)||'');
 +  };
 +
 +  override accept_events => sub { ('value', super()) };
 +
  };
  
  1;