--- trunk/lib/Frey/ObjectBrowser.pm	2008/07/09 13:12:03	68
+++ trunk/lib/Frey/ObjectBrowser.pm	2008/07/09 16:41:00	72
@@ -26,6 +26,7 @@
 use Data::Dump qw/dump/;
 use Data::Structure::Util qw(unbless);
 
+
 #method 'html' => positional(
 #	isa => 'Continuity::RequestHolder',
 #	required => 1,
@@ -48,17 +49,35 @@
 	while ( my $u = $s->next ) {
 		warn "# u = ",dump( $u );
 		my $w = Strix::View::User->new(
-			# FIXME this is cludge
-			unbless( $u )
+			#%{ unbless( $u ) }, # FIXME this is cludge
+			%{ $u }	# much better :-)
 		);
+		$w->_fey( $u );
 		warn "# w = ",dump( $w );
 		push @w, $w;
 	}
 
 	while ( 1 ) {
-		my $html = join('<hr/>', map { $_->process($f) } @w );
-		$req->print( $html );
+		my $form = join('<hr/>', map { $_->process($f) } @w );
+	    my $doc = Continuity::Widget::DomNode->create(
+			html => [
+				head => [
+					link  => { rel=>"stylesheet", href=>"form.css", type=>"text/css" }
+				],
+				body => [
+					h1 => [ 'Strix::User' ],
+					form => { method=>'post' } => [
+						$form
+					],
+				],
+			]
+		);
+
+		$req->print( $doc->to_string );
 		$req->next;
+
+		$f = { $req->params };
+		warn "...here we go again...";
 	}
 
 	warn "NO WAY OUT!";