listview ported bar pager
[catagits/Reaction.git] / lib / Reaction / UI / Widget / GridView.pm
1 package Reaction::UI::Widget::GridView;
2
3 use Reaction::UI::WidgetClass;
4
5 class GridView, which {
6
7   implements fragment header_cells {
8     arg 'labels' => $_{viewport}->field_labels;
9     render header_cell => over $_{viewport}->field_order;
10   };
11
12   implements fragment body_rows {
13     render body_row => over $_{viewport}->entities;
14   };
15
16   implements fragment body_row {
17     render 'viewport';
18   };
19
20   implements fragment header_cell {
21     arg label => $_{labels}->{$_};
22   };
23
24 };
25
26 1;