1 package Reaction::UI::Widget::ListView;
3 use Reaction::UI::WidgetClass;
5 class ListView is 'Reaction::UI::Widget::Collection::Grid', which {
7 after fragment widget {
8 arg pager_obj => $_{viewport}->pager;
11 implements fragment actions {
12 render action => over $_{viewport}->actions;
15 implements fragment action {
19 around fragment header_cell {
20 arg order_uri => event_uri {
22 order_by_desc => ((($_{viewport}->order_by||'') ne $_
23 || $_{viewport}->order_by_desc) ? 0 : 1)
28 after fragment header_cells {
29 if ($_{viewport}->object_action_count) {
30 render 'header_action_cell';
34 implements fragment header_action_cell {
35 arg col_count => $_{viewport}->object_action_count;
38 implements fragment page_list {
39 render numbered_page_fragment
40 => over [ $_{pager_obj}->first_page .. $_{pager_obj}->last_page ];
43 implements fragment numbered_page_fragment {
44 arg page_uri => event_uri { page => $_ };
45 arg page_number => $_;
46 if ($_{pager_obj}->current_page == $_) {
47 render 'numbered_page_this_page';
49 render 'numbered_page';
53 implements fragment first_page {
54 arg page_uri => event_uri { page => $_{pager_obj}->first_page };
55 arg page_name => 'First';
59 implements fragment last_page {
60 arg page_uri => event_uri { page => $_{pager_obj}->last_page };
61 arg page_name => 'Last';
65 implements fragment next_page {
66 arg page_name => 'Next';
67 if (my $page = $_{pager_obj}->next_page) {
68 arg page_uri => event_uri { page => $page };
71 render 'named_page_no_page';
75 implements fragment previous_page {
76 arg page_name => 'Previous';
77 if (my $page = $_{pager_obj}->previous_page) {
78 arg page_uri => event_uri { page => $page };
81 render 'named_page_no_page';