start of new widgets for fields

1 files changed, 27 insertions, 0 deletions

diff --git a/lib/Reaction/UI/Widget/Field.pm b/lib/Reaction/UI/Widget/Field.pm
new file mode 100644
index 0000000..f3caf3b
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Field.pm
@@ -0,0 +1,27 @@
+package Reaction::UI::Widget::Field;
+
+use Reaction::UI::WidgetClass;
+
+class Field, which {
+
+  has id   => (isa => 'Str', is => 'ro', lazy_build => 1);
+  has name => (isa => 'Str', is => 'ro', lazy_build => 1);
+
+  implements build_id   => as { shift->viewport->event_id_for('value'); };
+  implements build_name => as { shift->viewport->event_id_for('value'); };
+
+  widget renders [qw/label field message/
+                  => { id       => func('self', 'id'),
+                       name     => func('self', 'name'),
+                       viewport => func('self', 'viewport'),  }
+                 ];
+
+  label   renders [ string { $_{viewport}->label   }, ];
+  message renders [ string { $_{viewport}->message }, ];
+
+  field  renders [ string { $_{viewport}->value },  ];
+
+};
+
+1;
+