--- trunk/lib/Frey/ObjectDesigner.pm	2008/07/16 21:21:49	148
+++ trunk/lib/Frey/ObjectDesigner.pm	2008/07/16 21:23:27	149
@@ -14,6 +14,7 @@
 
 use Frey::Web::Design;
 use Frey::Web::Links;
+use Frey::Request;
 
 sub html {
 	my ( $self, $req ) = @_;
@@ -21,27 +22,35 @@
 	$self->add_css( 'static/form.css' );
 
 	my $pager;
+	my $items = 0;
 
 	while ( 1 ) {
+		$Frey::Request::current = $req;
 		my $f = { $req->params };
 		warn "<<< GOT REQUEST ",dump( $f );
-	
-		$pager = Frey::Pager->new(
+
+		$pager ||= Frey::Pager->new(
 			fey_class => $self->fey_class,
 			item_constructor => sub {
-				Frey::Web::Design->new( fey_class => $self->fey_class, @_ );
+				$items++;
+				warn "item_constructor $items";
+				return Frey::Web::Design->new( fey_class => $self->fey_class, @_ ) if $items < 4;
+				return Frey::Web::Item->new( fey_class => $self->fey_class, @_ );
 			},
 		) if ! $pager;
 
+		$pager->pager->entries_per_page( 5 );
 		$pager->update_collection;
 
 		my $form = $pager->items_in_layout( $f );
-		$form = $pager->last_item->render_table_wrapper( $form );
+		# we should use first_item here to get edit fields for labels
+		$form = $pager->first_item->render_table_wrapper( $form );
 
 	    my $html = $self->page(
 			body => '<h1>' . $self->fey_class . '</h1>'
-				. $pager->last_item->layout_picker	# FIXME
-				. qq|<form method="post">$form</form>|
+				. $pager->first_item->layout_picker	# FIXME
+				. qq|Showing $items items from collection|
+				. qq|<form method="post"><input type="submit" value="Save design">$form</form>|
 		);
 
 		warn ">>> ",length( $html ),"\n";