unstable switchover before template renaming. added searchpath for widgets trying...
[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 rows 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   rows renders [ viewport over func('viewport','rows') ];
19
20 };
21
22 1;
23
24
25 =for layout widget
26 <table>
27   [% header %]
28 <tbody>
29   [% rows %]
30 </tbody>
31 <tfoot>
32   [% footer %]
33 </tfoot>
34 </table>
35
36 =for layout header
37
38 <thead>
39   [% content %]
40 </thead>
41
42 =for layout header_row
43
44 <tr>
45   [% content %]
46 </tr>
47
48 =for layout header_cell
49
50 <th> [% content %] </th>
51
52 =for layout footer
53
54 <tfoot>
55   [% content %]
56 </tfoot>
57
58 =for layout footer_row
59
60 <tr> [% content %] </tr>
61
62 =for layout footer_cell
63
64 <td> [% content %] </td>
65
66 =for layout rows
67
68 <tbody>
69   [% content %]
70 </tbody>
71
72 =cut