--- trunk/lib/Strix/View/User.pm	2008/07/09 16:38:48	71
+++ trunk/lib/Strix/View/User.pm	2008/07/09 20:46:40	74
@@ -11,22 +11,57 @@
 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 );
+sub main {
+	my ( $self ) = @_;
+
+	if ( ! $self->_fey ) {
+		$self->add_button( 'Add' => sub {
+			warn "## Add button callback ",dump( @_ );
+			my $f = shift;
+#			my $out = $self->render_edit;
+#			my $f = $self->next($out);
+			warn "## my uuid ",$self->uuid;
+			$self->set_from_hash($f, sub {
+				warn "## inside set_from_hash ",dump( @_ );
+				my $hash = shift || die "no hash?";
+				delete( $hash->{id} );	# FIXME clear primary key
+#				$hash->{id} = undef;
+				my $u = Strix::User->insert( %$hash );
+				warn "Inserted ",$u->id;
+				$self->_fey( $u );
+			});
+		});
+	} else {
+
+		$self->add_button( 'Edit' => sub {
+			my $out = $self->render_edit;
+			my $f = $self->next($out);
+			$self->set_from_hash($f, sub {
+				warn "## inside set_from_hash ",dump( @_ );
+				my $hash = shift || die "no hash?";
+				$self->_fey->update( %$hash );
+			});
+		});
+
+		$self->add_button('Delete' => sub {
+			print STDERR "delete ID @{[$self->id]}!\n";
+			$self->_fey->delete;
+			$self->next("Deleted id @{[$self->id]}!");
+			$self->render_as( 'deleted' );
+			Strix::Schema->ClearObjectCaches();	# XXX important!
 		});
-	});
+
+	}
+
+	while(1) {
+		my $code = '$self->render_' . $self->render_as . ';';
+		warn "CODE: $code";
+    	my $out = eval "$code";
+		warn $@ if $@;
+		my $f = $self->next($out);
+		$self->set_from_hash($f);
+		$self->exec_buttons($f);
+	}
 };
 
 use Data::Dump qw/dump/;
@@ -35,8 +70,10 @@
 my $m = Strix::User->meta;
 
 foreach ( $m->get_attribute_list ) {
-	warn ">> $_\n";
 	my $attr = $m->get_attribute( $_ );
+	warn ">> $_\n";
+
+	# FIXME primary key would have to be read-only!
 
 	has $_ => (
 		is => $attr->_is_metadata,