Commit | Line | Data |
7adfd53f |
1 | package Reaction::UI::Widget; |
2 | |
3 | use Reaction::Class; |
4 | use aliased 'Reaction::UI::ViewPort'; |
5 | use aliased 'Reaction::UI::View'; |
d8c7a86e |
6 | use aliased 'Reaction::UI::LayoutSet'; |
7adfd53f |
7 | |
8 | class Widget which { |
9 | |
7adfd53f |
10 | has 'view' => (isa => View, is => 'ro', required => 1); |
d8c7a86e |
11 | has 'layout_set' => (isa => LayoutSet, is => 'ro', required => 1); |
f2fef590 |
12 | has 'fragment_names' => (is => 'ro', lazy_build => 1); |
13 | has 'basic_layout_args' => (is => 'ro', lazy_build => 1); |
14 | |
15 | implements '_build_fragment_names' => as { |
16 | my ($self) = shift; |
17 | return [ |
18 | map { /^_fragment_(.*)/; $1; } |
19 | grep { /^_fragment_/ } |
20 | map { $_->{name} } |
21 | $self->meta->compute_all_applicable_methods |
22 | ]; |
23 | }; |
7adfd53f |
24 | |
25 | implements 'render' => as { |
f2fef590 |
26 | my ($self, $fragment_name, $rctx, $passed_args) = @_; |
27 | confess "\$passed_args not hashref" unless ref($passed_args) eq 'HASH'; |
28 | #warn "Render: ${fragment_name} for ${self}"; |
097e8442 |
29 | my $args = { self => $self, %$passed_args }; |
f2fef590 |
30 | my $new_args = { %$args }; |
31 | my $render_tree = $self->_render_dispatch_order( |
32 | $fragment_name, $args, $new_args |
33 | ); |
34 | $rctx->dispatch($render_tree, $new_args); |
35 | }; |
36 | |
1c41e332 |
37 | implements '_method_for_fragment_name' => as { |
38 | my ($self, $fragment_name) = @_; |
39 | return $self->can("_fragment_${fragment_name}"); |
40 | }; |
41 | |
f2fef590 |
42 | implements '_render_dispatch_order' => as { |
43 | my ($self, $fragment_name, $args, $new_args) = @_; |
44 | |
45 | my @render_stack = (my $render_deep = (my $render_curr = [])); |
46 | my @layout_order = $self->layout_set->widget_order_for($fragment_name); |
47 | |
1c41e332 |
48 | if (my $f_meth = $self->_method_for_fragment_name($fragment_name)) { |
f2fef590 |
49 | my @wclass_stack; |
50 | my $do_render = sub { |
51 | my $package = shift; |
52 | if (@layout_order) { |
53 | while ($package eq $layout_order[0][0] |
54 | || $layout_order[0][0]->isa($package)) { |
55 | my $new_curr = []; |
56 | my @l = @{shift(@layout_order)}; |
57 | push(@$render_curr, [ -layout, $l[1], $fragment_name, $new_curr ]); |
58 | push(@render_stack, $new_curr); |
59 | push(@wclass_stack, $l[0]); |
60 | $render_deep = $render_curr = $new_curr; |
61 | last unless @layout_order; |
62 | } |
63 | } |
64 | if (@wclass_stack) { |
65 | while ($package ne $wclass_stack[-1] |
66 | && $package->isa($wclass_stack[-1])) { |
67 | pop(@wclass_stack); |
68 | $render_curr = pop(@render_stack); |
69 | } |
70 | } |
71 | push(@{$render_curr}, [ -render, @_ ]); |
72 | }; |
73 | $self->$f_meth($do_render, $args, $new_args); |
74 | } |
75 | # if we had no fragment method or if we still have layouts left |
76 | if (@layout_order) { |
77 | while (my $l = shift(@layout_order)) { |
78 | push(@$render_deep, [ |
79 | -layout => $l->[1], $fragment_name, ($render_deep = []) |
80 | ]); |
81 | } |
82 | } |
83 | |
84 | return $render_stack[0]; |
85 | }; |
86 | |
87 | implements '_build_basic_layout_args' => as { |
88 | my ($self) = @_; |
89 | my $args; |
90 | foreach my $name (@{$self->fragment_names}, |
91 | @{$self->layout_set->layout_names}) { |
92 | $args->{$name} ||= sub { $self->render($name, @_); }; |
93 | } |
94 | return $args; |
7adfd53f |
95 | }; |
96 | |
f2fef590 |
97 | implements '_fragment_viewport' => as { |
98 | my ($self, $do_render, $args, $new_args) = @_; |
7adfd53f |
99 | my $vp = $args->{'_'}; |
f2fef590 |
100 | my ($widget, $merge_args) = $self->view->render_viewport_args($vp); |
aa8c0c90 |
101 | delete @{$new_args}{keys %$new_args}; # fresh start |
f2fef590 |
102 | @{$new_args}{keys %$merge_args} = values %$merge_args; |
103 | $do_render->(Widget, $widget, 'widget'); |
104 | }; |
105 | |
106 | implements '_fragment_widget' => as { |
107 | my ($self, $do_render, $args, $new_args) = @_; |
108 | my $merge = $self->basic_layout_args; |
aa8c0c90 |
109 | #warn "Merge: ".join(', ', keys %$merge)." into: ".join(', ', keys %$new_args); |
f2fef590 |
110 | delete @{$merge}{keys %$new_args}; # nuke 'self' and 'viewport' |
111 | @{$new_args}{keys %$merge} = values %$merge; |
7adfd53f |
112 | }; |
113 | |
114 | }; |
115 | |
116 | 1; |
117 | |
118 | =head1 NAME |
119 | |
120 | Reaction::UI::Widget |
121 | |
122 | =head1 DESCRIPTION |
123 | |
124 | =head1 AUTHORS |
125 | |
126 | See L<Reaction::Class> for authors. |
127 | |
128 | =head1 LICENSE |
129 | |
130 | See L<Reaction::Class> for the license. |
131 | |
132 | =cut |