--- trunk/lib/Frey/Web/Design.pm 2008/07/16 23:21:19 153 +++ trunk/lib/Frey/ORM/Design.pm 2009/01/09 16:02:33 969 @@ -1,12 +1,12 @@ -package Frey::Web::Design; +package Frey::ORM::Design; use Moose; -extends 'Frey::Web::Item'; -with 'Frey::Web::Button'; +extends 'Frey::ORM::Item'; +with 'Frey::ORM::Button'; with 'Frey::Storage'; =head1 NAME -Frey::Web::Design - field designer for L +Frey::ORM::Design - field designer for L =cut @@ -31,7 +31,7 @@ has 'label_editable' => ( is => 'rw', - isa => 'HashRef[Frey::Web::Editable]', + isa => 'HashRef[Frey::ORM::Editable]', default => sub { {} }, ); @@ -41,7 +41,7 @@ default => 0, ); -use Frey::Web::Editable; +use Frey::ORM::Editable; around 'field_label' => sub { my ($next, $self, $name) = @_; @@ -55,7 +55,7 @@ warn "field_label $count $name -> $label\n"; $self->label_order->{ $name } = $count++; $self->label_count( $count ); - $self->label_editable->{ $name } = Frey::Web::Editable->new( + $self->label_editable->{ $name } = Frey::ORM::Editable->new( name => $name, value => $label, render_as => 'edit',