moved shit to trunk

1 files changed, 41 insertions, 0 deletions

diff --git a/lib/Reaction/UI/Widget.pm b/lib/Reaction/UI/Widget.pm
new file mode 100644
index 0000000..75cfae4
--- /dev/null
+++ b/lib/Reaction/UI/Widget.pm
@@ -0,0 +1,41 @@
+package Reaction::UI::Widget;
+
+use Reaction::Class;
+use aliased 'Reaction::UI::ViewPort';
+use aliased 'Reaction::UI::View';
+
+class Widget which {
+
+  has 'viewport' => (isa => ViewPort, is => 'ro'); # required?
+  has 'view' => (isa => View, is => 'ro', required => 1);
+
+  implements 'render' => as {
+    my ($self, $rctx) = @_;
+    $self->render_widget($rctx, { self => $self });
+  };
+
+  implements 'render_viewport' => as {
+    my ($self, $rctx, $args) = @_;
+    my $vp = $args->{'_'};
+    $self->view->render_viewport($rctx, $vp);
+  };
+
+};
+
+1;
+
+=head1 NAME
+
+Reaction::UI::Widget
+
+=head1 DESCRIPTION
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut