container widget

1 files changed, 59 insertions, 0 deletions

diff --git a/lib/Reaction/UI/Widget/Container.pm b/lib/Reaction/UI/Widget/Container.pm
new file mode 100644
index 0000000..3b11afb
--- /dev/null
+++ b/lib/Reaction/UI/Widget/Container.pm
@@ -0,0 +1,59 @@
+package Reaction::UI::Widget::Container;
+
+use Reaction::UI::WidgetClass;
+
+use aliased 'Reaction::UI::ViewPort';
+
+class Container which {
+
+  our $child_name;
+
+  # somewhat evil. fragment returns ($name, $code) to pass to implements
+  # or a method modifier name, so [1] will get us just the code
+
+  # This is convenient to do here but DO NOT duplicate this code outside of
+  # the same dist as WidgetClass since it's internals-dependent.
+
+  my $child_fragment_method
+    = (fragment container_child {
+         arg '_' => $_{viewport}->$child_name;
+         render 'viewport';
+       })[1];
+
+  around _method_for_fragment_name => sub {
+    my $orig = shift;
+    my $self = shift;
+    my ($fragment_name) = @_;
+    if (defined($child_name)
+        && $fragment_name eq $child_name) {
+      return $self->$orig(@_) || $child_fragment_method;
+    }
+    return $self->$orig(@_);
+  };
+    
+  before _fragment_widget => sub {
+    my ($self, $do_render, $args, $new_args) = @_;
+    my @contained_names = $self->_contained_names($args->{viewport});
+    foreach my $name (@contained_names) {
+      $new_args->{$name} ||= sub {
+        local $child_name = $name;
+        $self->render($name, @_);
+      };
+    }
+  };
+
+  implements _contained_names => sub {
+    my ($self, $vp) = @_;
+    my @names;
+    foreach my $attr ($vp->meta->compute_all_applicable_attributes) {
+      next unless eval { $attr->type_constraint->name->isa(ViewPort) };
+      my $name = $attr->name;
+      next if ($name eq 'outer');
+      push(@names, $name);
+    }
+    return @names;
+  };
+
+};
+
+1;