1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
package Reaction::UI::ViewPort::Collection;
use Reaction::Class;
use Scalar::Util qw/blessed/;
use aliased 'Reaction::InterfaceModel::Collection' => 'IM_Collection';
use aliased 'Reaction::UI::ViewPort::Object';
use MooseX::Types::Moose qw/Str HashRef/;
use namespace::clean -except => [ qw(meta) ];
extends 'Reaction::UI::ViewPort';
has members => (is => 'rw', isa => 'ArrayRef', lazy_build => 1);
has collection => (is => 'ro', isa => IM_Collection, required => 1);
has current_collection => (is => 'rw', isa => IM_Collection, lazy_build => 1);
has member_args => ( is => 'rw', isa => HashRef, lazy_build => 1);
has member_class => ( is => 'ro', isa => Str, lazy_build => 1);
sub BUILD {
my ($self, $args) = @_;
if( my $member_args = delete $args->{Member} ){
$self->member_args( $member_args );
}
}
sub _build_member_args { {} }
sub _build_member_class { Object };
after clear_current_collection => sub{
shift->clear_members; #clear the members the current collection changes, duh
};
sub _build_current_collection {
return $_[0]->collection;
}
#I'm not really sure why this is here all of a sudden.
sub model { shift->current_collection }
sub _build_members {
my ($self) = @_;
my (@members, $i);
my $args = $self->member_args;
my $builders = {};
my $field_orders = {};
my $ctx = $self->ctx;
my $loc = join('-', $self->location, 'member');
my $class = $self->member_class;
#replace $i with a real unique identifier so that we don't run a risk of
# events being passed down to the wrong viewport. for now i disabled event
# passing until i fix this (groditi)
for my $obj ( $self->current_collection->members ) {
my $type = blessed $obj;
my $builder_cache = $builders->{$type} ||= {};
my @order;
if( exists $args->{computed_field_order} ){
@order = (computed_field_order => $args->{computed_field_order});
} elsif( exists $field_orders->{$type} ) {
@order = (computed_field_order => $field_orders->{$type});
}
my $member = $class->new(
ctx => $ctx,
model => $obj,
location => join('-', $loc, $i++),
builder_cache => $builder_cache,
@order, %$args,
);
#cache to prevent the sort function from having to be run potentially
#hundreds of times
$field_orders->{$type} ||= $member->computed_field_order unless @order;
push(@members, $member);
}
return \@members;
};
__PACKAGE__->meta->make_immutable;
1;
__END__;
=head1 NAME
Reaction::UI::ViewPort::Collection
=head1 DESCRIPTION
Creates, from an InterfaceModel::Collection, a list of viewports representing
each member of the collection.
=head1 ATTRIBUTES
=head2 collection
Required read-only L<InterfaceModel::Collection|Reaction::InterfaceModel::Collection>
This is the original collection.
=head2 current_collection
Read-only, lazy-building
L<InterfaceModel::Collection|Reaction::InterfaceModel::Collection>
This is the collection that will be used to create C<members> and should be
altered to reflect any ordering, paging, etc. By default this is the
same thing as C<collection>.
=head2 member_args
A read-write HASH ref of additional parameters to pass to the C<member_class>
constructor as items are instantiated.
=head2 member_class
The class to use when instantiating items to represent the member items.
See: L<Object|Reaction::UI::ViewPort::Object>,
L<Member|Reaction::UI::ViewPort::Grid::Member>,
L<Member::WithActions|Reaction::UI::ViewPort::Grid::Member::WithActions>,
=head1 INTERNAL METHODS
These methods, although stable, are subject to change without notice.
Extend at your own risk, APIs may change in the future.
=head2 BUILD
Intercept a parameter with the key C<Member> amd store it in C<member_args>
=head2 model
Returns the C<current_collection>
=head2 _build_members
Build individual viewports for each member of the collection,
=head2 _build_member_args
Defaults to an empty HASH ref.
=head2 _build_member_class
Defaults to L<Reaction::UI::ViewPort::Object>
=head1 AUTHORS
See L<Reaction::Class> for authors.
=head1 LICENSE
See L<Reaction::Class> for the license.
=cut
|
