--- trunk/lib/Strix/View/User.pm	2008/07/08 12:22:16	63
+++ trunk/lib/Strix/View/User.pm	2008/07/09 16:38:48	71
@@ -1,5 +1,7 @@
 package Strix::View::User;
 
+use Data::Dump qw/dump/;
+
 use metaclass 'Moose::Meta::Class' => (
 	attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
 );
@@ -9,10 +11,27 @@
 extends 'Continuity::Widget';
 #with 'BonusTypes';
 
+before main => sub {
+	my ($self) = @_;
+#	$self->add_button('Show ID' => sub {
+#		print STDERR "ID = @{[$self->id]}!\n";
+#		$self->next("<tt>id @{[$self->id]}!</tt>");
+#	});
+	$self->add_button('Edit' => sub {
+		my $out = $self->renderer->{edit}->($self);
+		my $f = $self->next($out);
+		$self->set_from_hash($f, sub {
+			warn "## inside set_from_hash ",dump( @_ );
+			my $hash = shift || die "no hash?";
+			warn "## hash = ",dump( $hash );
+			$self->_fey->update( %$hash );
+		});
+	});
+};
+
 use Data::Dump qw/dump/;
 
 use Strix::User;
-
 my $m = Strix::User->meta;
 
 foreach ( $m->get_attribute_list ) {
@@ -27,9 +46,15 @@
 
 }
 
-has foo => (
+has _foo => (
 	is => 'rw',
 	label => 'Foo',
 );
 
+has _fey => (
+	is => 'rw',
+	label => 'Fey object',
+	isa => 'Strix::User',
+);
+
 1;