unstable switchover before template renaming. added searchpath for widgets trying to make list view work. added gridview

8 files changed, 279 insertions, 0 deletions

diff --git a/lib/Reaction/UI/Widget/Value/Boolean.pm b/lib/Reaction/UI/Widget/Value/Boolean.pm
new file mode 100644
index 0000000..21a0f3f
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/Boolean.pm
@@ -0,0 +1,35 @@
+package Reaction::UI::Widget::Value::Boolean;
+
+use Reaction::UI::WidgetClass;
+
+class Boolean is 'Reaction::UI::Widget::Value', which {
+  value  renders [ string { $_{viewport}->value_string } ];
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::Boolean
+
+=head1 DESCRIPTION
+
+See L<Reaction::UI::Widget::Value>
+
+=head1 FRAGMENTS
+
+=head2 value
+
+C<content> contains the viewport's value_string
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/Collection.pm b/lib/Reaction/UI/Widget/Value/Collection.pm
new file mode 100644
index 0000000..073911d
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/Collection.pm
@@ -0,0 +1,44 @@
+package Reaction::UI::Widget::Value::Collection;
+
+use Reaction::UI::WidgetClass;
+
+class Collection, which {
+  widget renders [ qw/list/ =>  { viewport => func(self => 'viewport') } ];
+  list   renders [ item over func('viewport', 'value_names') ];
+  item   renders [ string { $_ } ];
+};
+
+1;
+
+__END__;
+
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::Collection
+
+=head1 DESCRIPTION
+
+=head1 FRAGMENTS
+
+=head2 widget
+
+renders C<label> and C<list> passing additional variable "viewport"
+
+=head2 list
+
+renders fragment item over the viewport's C<value_names>
+
+=head2 item
+
+C<content> contains the value of the current item ($_ / $_{_})
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/DateTime.pm b/lib/Reaction/UI/Widget/Value/DateTime.pm
new file mode 100644
index 0000000..63159c5
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/DateTime.pm
@@ -0,0 +1,35 @@
+package Reaction::UI::Widget::Value::DateTime;
+
+use Reaction::UI::WidgetClass;
+
+class DateTime is 'Reaction::UI::Widget::Value', which {
+  value renders [ string { $_{viewport}->value_string } ];
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::DateTime
+
+=head1 DESCRIPTION
+
+See L<Reaction::UI::Widget::Value>
+
+=head1 FRAGMENTS
+
+=head2 value
+
+C<content> contains the viewport's value_string
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/List.pm b/lib/Reaction/UI/Widget/Value/List.pm
new file mode 100644
index 0000000..bd713e4
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/List.pm
@@ -0,0 +1,43 @@
+package Reaction::UI::Widget::Value::List;
+
+use Reaction::UI::WidgetClass;
+
+class List, which {
+  widget renders [ qw/list item/ =>  { viewport => func(self => 'viewport') } ];
+  list   renders [ item over func('viewport', 'value_names') ];
+  item   renders [ string { $_{_} } ];
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::List
+
+=head1 DESCRIPTION
+
+=head1 FRAGMENTS
+
+=head2 widget
+
+renders C<label> passing additional variable "viewport"
+
+=head2 list
+
+renders fragment item over the viewport's C<value_names>
+
+=head2 item
+
+C<content> contains the value of the current item ($_ / $_{_})
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/Number.pm b/lib/Reaction/UI/Widget/Value/Number.pm
new file mode 100644
index 0000000..4d895e1
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/Number.pm
@@ -0,0 +1,29 @@
+package Reaction::UI::Widget::Value::Number;
+
+use Reaction::UI::WidgetClass;
+
+class Number is 'Reaction::UI::Widget::Value', which {
+
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::Number
+
+=head1 DESCRIPTION
+
+See L<Reaction::UI::Widget::Value>
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/RelatedObject.pm b/lib/Reaction/UI/Widget/Value/RelatedObject.pm
new file mode 100644
index 0000000..4617514
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/RelatedObject.pm
@@ -0,0 +1,35 @@
+package Reaction::UI::Widget::Value::RelatedObject;
+
+use Reaction::UI::WidgetClass;
+
+class RelatedObject is 'Reaction::UI::Widget::Value', which {
+  value  renders [ string { $_{viewport}->value_string } ];
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::RelatedObject
+
+=head1 DESCRIPTION
+
+See L<Reaction::UI::Widget::Value>
+
+=head1 FRAGMENTS
+
+=head2 value
+
+C<content> contains the viewport's value_string
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/String.pm b/lib/Reaction/UI/Widget/Value/String.pm
new file mode 100644
index 0000000..366355d
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/String.pm
@@ -0,0 +1,29 @@
+package Reaction::UI::Widget::Value::String;
+
+use Reaction::UI::WidgetClass;
+
+class String is 'Reaction::UI::Widget::Value', which {
+
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::String
+
+=head1 DESCRIPTION
+
+See L<Reaction::UI::Widget::Value>
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
diff --git a/lib/Reaction/UI/Widget/Value/Text.pm b/lib/Reaction/UI/Widget/Value/Text.pm
new file mode 100644
index 0000000..0fe4cdd
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Value/Text.pm
@@ -0,0 +1,29 @@
+package Reaction::UI::Widget::Value::Text;
+
+use Reaction::UI::WidgetClass;
+
+class Text is 'Reaction::UI::Widget::Value', which {
+
+};
+
+1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::Value::Text
+
+=head1 DESCRIPTION
+
+See L<Reaction::UI::Widget::Value>
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut