--- trunk/lib/Frey/ObjectDesigner.pm 2008/07/13 17:38:01 113 +++ trunk/lib/Frey/ObjectDesigner.pm 2008/07/14 23:44:18 129 @@ -12,7 +12,7 @@ use Data::Dump qw/dump/; -use Frey::Web::Row; +use Frey::Web::Design; use Frey::Web::Links; sub html { @@ -31,7 +31,7 @@ warn "# new layout = $layout\n"; } - my $w = Frey::Web::Row->new( fey_class => $self->fey_class, layout => $layout, render_as => 'edit' ); + my $w = Frey::Web::Design->new( fey_class => $self->fey_class, layout => $layout, render_as => 'edit' ); my $form = $w->process($f); @@ -57,19 +57,12 @@ qq|| ; - my $html = dom2html( - html => [ - head => [ - link => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" } - ], - body => [ - h1 => [ $self->fey_class ], - $layout_picker, - form => { method=>'post' } => [ - $form, - ], - ], - ] + $self->add_css( 'static/form.css' ); + + my $html = $self->page( + body => '

' . $self->fey_class . '

' + . $layout_picker + . qq|
$form
| ); warn ">>> $layout ",length( $html ),"\n";