1 package Reaction::UI::Widget;
4 use aliased 'Reaction::UI::ViewPort';
5 use aliased 'Reaction::UI::View';
9 has 'viewport' => (isa => ViewPort, is => 'ro'); # required?
10 has 'view' => (isa => View, is => 'ro', required => 1);
12 implements 'render' => as {
13 my ($self, $rctx) = @_;
14 my $args = { self => $self };
15 $args->{viewport} = $self->viewport if $self->has_viewport;
16 $self->render_widget($rctx, $args);
19 implements 'render_viewport' => as {
20 my ($self, $rctx, $args) = @_;
21 my $vp = $args->{'_'};
22 $self->view->render_viewport($rctx, $vp);
37 See L<Reaction::Class> for authors.
41 See L<Reaction::Class> for the license.