widget little bug

[catagits/Reaction.git] / lib / Reaction / UI / Widget / ActionForm.pm

diff --git a/lib/Reaction/UI/Widget/ActionForm.pm b/lib/Reaction/UI/Widget/ActionForm.pm
index a631130..fc2df18 100644 (file)
--- a/lib/Reaction/UI/Widget/ActionForm.pm
+++ b/lib/Reaction/UI/Widget/ActionForm.pm
@@ -3,12 +3,14 @@ package Reaction::UI::Widget::ActionForm;
 use Reaction::UI::WidgetClass;
 
 class ActionForm, which {
-  widget renders [qw/header fields buttons footer/
-                  => { viewport => func('self','viewport') } ];
+  widget renders [ qw/header fields buttons footer/ ];
 
-  fields renders [viewport over func('viewport','ordered_fields')];
+  fields renders [field over func('viewport','ordered_fields')];
+  field  renders [ 'viewport' ];
 
-  buttons renders [ string {"DUMMY"} ], {message => func('viewport','message');
+  #move button logic here
+  buttons renders [ string {"DUMMY"} ],
+    {message => sub{ $_{viewport}->can('message') ? $_{viewport}->message : "" } };
   header  renders [ string {"DUMMY"} ];
   footer  renders [ string {"DUMMY"} ];
 
@@ -18,7 +20,6 @@ class ActionForm, which {
 
 __END__;
 
-
 =head1 NAME
 
 Reaction::UI::Widget::ActionForm