gridview is so close. so close
[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   widget renders [ qw/header body footer/
7                    => { viewport => func('self', 'viewport') }
8                  ];
9
10   header      renders [ 'header_row' ];
11   header_row  renders [ header_cell over func('viewport', 'column_names') ];
12   header_cell renders [ string { $_ } ];
13
14   footer      renders [ 'footer_row' ];
15   footer_row  renders [ footer_cell over func('viewport', 'column_names') ];
16   footer_cell renders [ string { $_ } ];
17
18
19   body      renders [ body_row over func('viewport','rows')];
20   body_row  renders [ body_cell over $_ ]; #over $_ ? heeelp
21   body_cell renders [ 'viewport' ];
22
23 };
24
25 1;