--- trunk/lib/Frey/ObjectDesigner.pm 2008/07/14 21:22:43 121 +++ trunk/lib/Frey/ObjectDesigner.pm 2008/07/16 14:17:46 143 @@ -12,65 +12,42 @@ use Data::Dump qw/dump/; -use Frey::Web::Row; +use Frey::Web::Design; use Frey::Web::Links; sub html { my ( $self, $req ) = @_; - my $f = { $req->params }; - my $layout = delete( $f->{layout} ) || 'div'; + $self->add_css( 'static/form.css' ); + + my $pager; while ( 1 ) { - + my $f = { $req->params }; warn "<<< GOT REQUEST ",dump( $f ); + + $pager = Frey::Pager->new( + fey_class => $self->fey_class, + item_constructor => sub { + Frey::Web::Design->new( fey_class => $self->fey_class, @_ ); + }, + ) if ! $pager; - # re-apply (changed?) layout to elements - if ( defined $f->{layout} ) { - $layout = delete( $f->{layout} ); - warn "# new layout = $layout\n"; - } - - my $w = Frey::Web::Row->new( fey_class => $self->fey_class, layout => $layout, render_as => 'edit' ); - - my $form = $w->process($f); - - $form = qq|