--- trunk/lib/Strix/View/User.pm	2008/07/09 20:46:40	74
+++ trunk/lib/Strix/View/User.pm	2008/07/11 10:29:31	95
@@ -1,6 +1,7 @@
 package Strix::View::User;
 
 use Data::Dump qw/dump/;
+use Carp qw/carp/;
 
 use metaclass 'Moose::Meta::Class' => (
 	attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
@@ -11,59 +12,145 @@
 extends 'Continuity::Widget';
 #with 'BonusTypes';
 
+sub edit_delete_buttons {
+	my $self = shift;
+
+	return unless $self->_fey;
+
+	$self->add_button( 'Edit' => sub {
+		$self->remove_button( 'Delete' );
+		$self->rename_button( 'Edit' => 'Save' );
+		my $out = $self->render_edit;
+		my $f = $self->next($out);
+		my $hash = $self->set_from_hash($f);
+		#warn "# Edit/Save hash = ",dump( $hash );
+		$self->_fey->update( %$hash ) if $hash;
+		$self->rename_button( 'Save' => 'Edit' );
+		$self->delete_button;
+	});
+	$self->delete_button;
+}
+
+sub delete_button {
+	my $self = shift;
+	$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!
+	});
+}
+
 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 );
-			});
+			my $hash = $self->set_from_hash($f);
+			delete( $hash->{id} );	# FIXME clear primary key
+			my $u = Strix::User->insert( %$hash );
+			warn "Inserted ",$u->id;
+			# XXX store object for later
+			$self->_fey( $u );
+			# put ID in widget, so that it know it's not new
+			$self->id( $u->id );
+			$self->render_as( 'view' );
+			$self->edit_delete_buttons;
+			$self->remove_button( 'Add' );
 		});
+	}
 
-		$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!
-		});
+	$self->edit_delete_buttons;
 
-	}
+	warn "# ",$self->uuid, " [", $self->id ,"] _fey = ",dump( $self->_fey );
 
 	while(1) {
-		my $code = '$self->render_' . $self->render_as . ';';
-		warn "CODE: $code";
-    	my $out = eval "$code";
+    	my $out;
+		if ( $self->render_as eq 'edit' ) {
+			$out .= $self->render_edit;
+		} elsif ( $self->render_as eq 'view' ) {
+			$out .= $self->render_view;
+		} else {
+			warn "no renderer ",dump( $self->render_as ), " skipping...";
+		}
+
 		warn $@ if $@;
+		warn ">>> ",length($out),"\n";
 		my $f = $self->next($out);
 		$self->set_from_hash($f);
 		$self->exec_buttons($f);
 	}
 };
 
+sub render_edit {
+	my $self = shift;
+	warn "# render_edit ",$self->id," ",$self->uuid, " ", $self->_layout, "\n";
+	my $out = $self->render_iterator( sub {
+		#warn "# edit render_iterator ",dump( @_ );
+		my ( $name, $field_name, $label, $val ) = @_;
+		return if $name =~ /^_/;
+		return qq|
+			<tr class="editform">
+			<td class="label">$label</td>
+			<td class="field">
+				<input type=text id="$field_name" name="$field_name" value="$val">
+			</td>
+			</tr>
+		| if $self->_layout eq 'table';
+		return qq|
+			<td class="field">
+				<input type=text id="$field_name" name="$field_name" value="$val">
+			</td>
+		| if $self->_layout eq 'columns';
+		return qq|
+			<div class=fieldholder>
+				<label for="$field_name">$label</label>
+				<div class=field>
+					<input type=text id="$field_name" name="$field_name" value="$val">
+				</div>
+			</div>
+		|;
+	});
+
+	return qq|<tr class="editform">$out<td>| . $self->render_buttons . qq|</td></tr>| if $self->_layout eq 'columns';
+
+	$self->render_wrapper_class( $out, 'editform' );
+}
+
+sub render_view {
+	my $self = shift;
+	warn "# render_view ",$self->id," ",$self->uuid," ", $self->_layout,"\n";
+	my $out = $self->render_iterator( sub {
+		#warn "# view render_iterator ",dump( @_ );
+		my ( $name, $field_name, $label, $val ) = @_;
+		return if $name =~ /^_/;
+		return qq|<tr><td>$label</td><td>$val</td></tr>| if $self->_layout eq 'table';
+		return qq|<td>$val</td>| if $self->_layout eq 'columns';
+		return qq|
+			<div class=fieldholder>
+				<div class=label>$label</div>
+				<div class=field>$val</div>
+				</div>
+			</div>
+		|;
+	});
+	return qq|<tr>$out<td>| . $self->render_buttons . qq|</td></tr>| if $self->_layout eq 'columns';
+	$self->render_wrapper_class( $out, 'view' );
+}
+
+sub render_wrapper_class {
+	my ( $self, $out, $class ) = @_;
+	if ( length($out) == 0 ) {
+		carp "no output, skipping";
+		return '<!-- no output -->';
+	}
+	$out =~ s/^\t+//mg;	# XXX compress output
+	return $out . qq|<tr><td colspan=2>| . $self->render_buttons . qq|</td></tr>| if $self->_layout eq 'table';
+	return qq|<div class="$class">| . $out . $self->render_buttons . qq|</div>|;
+}
+
 use Data::Dump qw/dump/;
 
 use Strix::User;
@@ -83,15 +170,20 @@
 
 }
 
-has _foo => (
-	is => 'rw',
-	label => 'Foo',
-);
-
 has _fey => (
 	is => 'rw',
 	label => 'Fey object',
 	isa => 'Strix::User',
 );
 
+use Moose::Util::TypeConstraints;
+
+enum 'Layouts' => qw( div table columns );
+
+has _layout => (
+	is => 'rw',
+	isa => 'Layouts',
+	default => 'div',
+);
+
 1;