--- trunk/lib/Strix/View/User.pm	2008/07/10 17:27:58	86
+++ trunk/lib/Strix/View/User.pm	2008/07/10 20:00:54	89
@@ -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'
@@ -77,45 +78,58 @@
 
 sub render_edit {
 	my $self = shift;
-	warn "# render_edit ",$self->id," ",$self->uuid;
-	$self->render_iterator(
-		qq|<div class="editform">|,
-		sub {
-			#warn "# edit render_iterator ",dump( @_ );
-			my ( $name, $field_name, $label, $val ) = @_;
-			return if $name =~ /^_/;
-			return qq|
-				<div class=fieldholder>
-					<div class=label>$label</div>
-					<div class=field>
-						<input type=text id="$field_name" name="$field_name" value="$val">
-					</div>
+	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>
+			<td>$label</td>
+			<td>
+				<input type=text id="$field_name" name="$field_name" value="$val">
+			</td>
+			</tr>
+		| if $self->_layout eq 'table';
+		return qq|
+			<div class=fieldholder>
+				<div class=label>$label</div>
+				<div class=field>
+					<input type=text id="$field_name" name="$field_name" value="$val">
 				</div>
-			|;
-		},
-		qq|</div>|
-	);
+			</div>
+		|;
+	});
+	$self->render_wrapper_class( $out, 'editform' );
 }
 
 sub render_view {
 	my $self = shift;
-	warn "# render_view ",$self->id," ",$self->uuid;
-	$self->render_iterator(
-		qq|<div class="view">|,
-		sub {
-			#warn "# view render_iterator ",dump( @_ );
-			my ( $name, $field_name, $label, $val ) = @_;
-			return if $name =~ /^_/;
-			return qq|
-				<div class=fieldholder>
-					<div class=label>$label</div>
-					<div class=field>$val</div>
-					</div>
+	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|
+			<div class=fieldholder>
+				<div class=label>$label</div>
+				<div class=field>$val</div>
 				</div>
-			|;
-		},
-		qq|</div>|
-	);
+			</div>
+		|;
+	});
+	$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 -->';
+	}
+	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/;
@@ -137,15 +151,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 );
+
+has _layout => (
+	is => 'rw',
+	isa => 'Layouts',
+	default => 'div',
+);
+
 1;