start of new widgets for fields

[catagits/Reaction.git] / lib / Reaction / UI / Widget / Field / String.pm

diff --git a/lib/Reaction/UI/Widget/Field/String.pm b/lib/Reaction/UI/Widget/Field/String.pm
new file mode 100644 (file)
index 0000000..99247bc
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Field/String.pm
@@ -0,0 +1,34 @@
+package Reaction::UI::Widget::Field::String;
+
+use Reaction::UI::WidgetClass;
+
+class String is 'Reaction::UI::Widget::Field', which {
+
+};
+
+1;
+
+=for layout widget
+
+[% label %] [% field %] [% message %] <br>
+
+=for layout field
+
+<!-- We need a replacement for process_attrs -->
+<input type="text" name="[% name %]" id="[% id %]" value="[% content | html %]" />
+
+=for layout label
+
+<!-- This conditional goes away when mst comes up with something better -->
+[% IF content %]
+  <label for="[% id %]"> [% content | html %]: </label>
+[% END %]
+
+=for layout message
+
+<!-- This conditional goes away when mst comes up with something better -->
+[% IF content %]
+  <span> [% content | html %] </span>
+[% END %]
+
+=cut