r15165@deathmachine (orig r402): groditi | 2007-11-14 13:33:11 -0500
[catagits/Reaction.git] / lib / Reaction / UI / Widget / ActionForm.pm
1 package Reaction::UI::Widget::ActionForm;
2
3 use Reaction::UI::WidgetClass;
4
5 class ActionForm, which {
6   widget renders [ qw/header fields buttons footer/ ];
7
8   fields renders [field over func('viewport','ordered_fields')];
9   field  renders [ 'viewport' ];
10
11   #move button logic here
12   buttons renders [ string {"DUMMY"} ],
13     {message => sub{ $_{viewport}->can('message') ? $_{viewport}->message : "" } };
14   header  renders [ string {"DUMMY"} ];
15   footer  renders [ string {"DUMMY"} ];
16
17 };
18
19 1;
20
21 __END__;
22
23 =head1 NAME
24
25 Reaction::UI::Widget::ActionForm
26
27 =head1 DESCRIPTION
28
29 =head1 FRAGMENTS
30
31 =head2 widget
32
33 Additional variables available in topic hash: "viewport".
34
35 Renders "header", "fields", "buttons" and "footer"
36
37 =head2 fields
38
39 Sequentially renders the C<ordered_fields> of the viewport
40
41 =head2 buttons
42
43 Additional variables available in topic hash: "message"
44
45 =head2 header
46
47 Content is a dummy value
48
49 =head2 footer
50
51 Content is a dummy value
52
53 =head1 AUTHORS
54
55 See L<Reaction::Class> for authors.
56
57 =head1 LICENSE
58
59 See L<Reaction::Class> for the license.
60
61 =cut
62