r62507@cain (orig r402): groditi | 2007-11-14 18:33:11 +0000
matthewt [Wed, 14 Nov 2007 20:05:51 +0000 (20:05 +0000)]
  r15103@deathmachine (orig r401):  groditi | 2007-11-13 16:43:36 -0500
  changes so far for new moose / mop

 r62510@cain (orig r405):  groditi | 2007-11-14 19:49:50 +0000
  r15169@deathmachine (orig r404):  groditi | 2007-11-14 14:48:24 -0500
  button labels for action form

1  2 
Makefile.PL
lib/Reaction/UI/Widget/ActionForm.pm
lib/Reaction/UI/Widget/Field.pm
share/skin/default/layout/action_form.tt

diff --cc Makefile.PL
Simple merge
@@@ -3,16 -3,22 +3,22 @@@ package Reaction::UI::Widget::ActionFor
  use Reaction::UI::WidgetClass;
  
  class ActionForm, which {
-   fragment widget [ qw/header field_list buttons footer/ ];
 -  widget renders [ qw/header fields buttons footer/ ],
 -    {id => sub { $_{viewport}->location } };
++  fragment widget [ qw/header field_list buttons footer/ ]
++    => {id => sub { $_{viewport}->location } };
  
 -  fields renders [field over func('viewport','ordered_fields')];
 -  field  renders [ 'viewport' ];
 +  fragment field_list [field => over func('viewport','ordered_fields')];
 +  fragment field  [ 'viewport' ];
  
    #move button logic here
 -  buttons renders [ string {"DUMMY"} ],
 +  fragment buttons [ string {"DUMMY"} ],
-     {message => sub{ $_{viewport}->can('message') ? $_{viewport}->message : "" } };
+     { message => sub{ $_{viewport}->can('message') ? $_{viewport}->message : "" },
+       ok_label    => func(viewport => 'ok_label'),
+       close_label => func(viewport => 'close_label'),
+       apply_label => func(viewport => 'apply_label'),
+     };
 -  header  renders [ string {"DUMMY"} ];
 -  footer  renders [ string {"DUMMY"} ];
 +  fragment header  [ string {"DUMMY"} ];
 +  fragment footer  [ string {"DUMMY"} ];
  
  };
  
@@@ -7,10 -7,10 +7,10 @@@ class Field, which 
    has id   => (isa => 'Str', is => 'ro', lazy_build => 1);
    has name => (isa => 'Str', is => 'ro', lazy_build => 1);
  
-   implements build_id   => as { shift->viewport->event_id_for('value'); };
-   implements build_name => as { shift->viewport->event_id_for('value'); };
+   implements _build_id   => as { shift->viewport->event_id_for('value'); };
+   implements _build_name => as { shift->viewport->event_id_for('value'); };
  
 -  widget renders [qw/label field message/
 +  fragment widget [qw/label field message/
                    => { id       => func('self', 'id'),
                         name     => func('self', 'name'), }
                   ];