r23441@martha (orig r923): groditi | 2008-10-23 22:00:04 -0400

[catagits/Reaction.git] / lib / Reaction / UI / Widget / Value.pm

diff --git a/lib/Reaction/UI/Widget/Value.pm b/lib/Reaction/UI/Widget/Value.pm
index 48d362d..1ab37be 100644 (file)
--- a/lib/Reaction/UI/Widget/Value.pm
+++ b/lib/Reaction/UI/Widget/Value.pm
@@ -2,14 +2,20 @@ package Reaction::UI::Widget::Value;
 
 use Reaction::UI::WidgetClass;
 
-class Value, which {
+use namespace::clean -except => [ qw(meta) ];
 
-  before fragment widget {
-    arg value => $_{viewport}->value_string;
-  };
 
+before fragment widget {
+  if ($_{viewport}->can('value_string')) {
+    arg value => $_{viewport}->value_string;
+  } elsif($_{viewport}->can('value')) {
+    arg value => $_{viewport}->value;
+  }
 };
 
+__PACKAGE__->meta->make_immutable;
+
+
 1;
 
 __END__;
@@ -24,13 +30,13 @@ Reaction::UI::Widget::Value
 
 =head2 widget
 
-Additional variables available in topic hash: "viewport".
+Additional available arguments
 
-Renders "label" and "field"
+=over 4
 
-=head2 field
+=item B<value> - The C<value_string> or C<value> of the viewport
 
- C<content> will contain the value, if any,  of the field.
+=back
 
 =head1 AUTHORS