--- trunk/lib/Strix/View/User.pm	2008/07/10 21:17:43	91
+++ trunk/lib/Strix/View/User.pm	2008/07/11 13:11:36	97
@@ -9,9 +9,43 @@
 
 use Moose;
 
-extends 'Continuity::Widget';
+#extends 'Continuity::Widget';
+extends 'Frey::Web::Button';
 #with 'BonusTypes';
 
+use Moose::Util::TypeConstraints;
+
+enum 'Render_as' => qw( view edit none );
+has _render_as => ( is => 'rw', isa => 'Render_as', required => 1, default => 'view' );
+
+has _fey => (
+	is => 'rw',
+	label => 'Fey object',
+	isa => 'Strix::User',
+);
+
+enum 'Layouts' => qw( div table columns );
+has _layout => (
+	is => 'rw',
+	isa => 'Layouts',
+	default => 'div',
+	required => 1,
+);
+
+sub render_iterator {
+	confess "BACKWARD INCOMATIBLE CHANGE: render_iterator works ONLY with 2 params!" unless $#_ == 1;
+	my ($self, $iterator) = @_;
+	my %attrmap = %{ $self->meta->get_attribute_map };
+	my $out;
+	while( my ($name, $attr) = each %attrmap ) {
+		my $reader = $attr->get_read_method;
+		my $val = $self->$reader || '';
+		my $field_name = $self->field_name($name);
+		$out .= $iterator->( $name, $field_name, $attr->label, $val ) || '';	# || '' to shut warnings
+	}
+	return $out;
+}
+
 sub edit_delete_buttons {
 	my $self = shift;
 
@@ -23,7 +57,8 @@
 		my $out = $self->render_edit;
 		my $f = $self->next($out);
 		my $hash = $self->set_from_hash($f);
-		$self->_fey->update( %$hash );
+		warn "# Edit/Save hash = ",dump( $hash );
+		$self->_fey->update( %$hash ) if $hash;
 		$self->rename_button( 'Save' => 'Edit' );
 		$self->delete_button;
 	});
@@ -33,11 +68,10 @@
 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!
+		$self->next( qq|<div class="notice">Deleted id @{[$self->id]}!</div>|);
+		$self->_render_as( 'none' );
+#		Strix::Schema->ClearObjectCaches();	# XXX important!
 	});
 }
 
@@ -55,7 +89,7 @@
 			$self->_fey( $u );
 			# put ID in widget, so that it know it's not new
 			$self->id( $u->id );
-			$self->render_as( 'view' );
+			$self->_render_as( 'view' );
 			$self->edit_delete_buttons;
 			$self->remove_button( 'Add' );
 		});
@@ -67,12 +101,12 @@
 
 	while(1) {
     	my $out;
-		if ( $self->render_as eq 'edit' ) {
+		if ( $self->_render_as eq 'edit' ) {
 			$out .= $self->render_edit;
-		} elsif ( $self->render_as eq 'view' ) {
+		} elsif ( $self->_render_as eq 'view' ) {
 			$out .= $self->render_view;
 		} else {
-			warn "no renderer ",dump( $self->render_as ), " skipping...";
+			warn "no renderer ",dump( $self->_render_as ), " skipping...";
 		}
 
 		warn $@ if $@;
@@ -99,6 +133,11 @@
 			</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>
@@ -107,6 +146,9 @@
 			</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' );
 }
 
@@ -118,6 +160,7 @@
 		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>
@@ -126,6 +169,7 @@
 			</div>
 		|;
 	});
+	return qq|<tr>$out<td>| . $self->render_buttons . qq|</td></tr>| if $self->_layout eq 'columns';
 	$self->render_wrapper_class( $out, 'view' );
 }
 
@@ -159,20 +203,4 @@
 
 }
 
-has _fey => (
-	is => 'rw',
-	label => 'Fey object',
-	isa => 'Strix::User',
-);
-
-use Moose::Util::TypeConstraints;
-
-enum 'Layouts' => qw( div table );
-
-has _layout => (
-	is => 'rw',
-	isa => 'Layouts',
-	default => 'div',
-);
-
 1;