--- trunk/lib/Continuity/Widget.pm	2008/07/09 16:36:21	70
+++ trunk/lib/Continuity/Widget.pm	2008/07/09 20:43:48	73
@@ -33,6 +33,8 @@
   default => sub { Data::UUID->new->create_str }
 );
 
+has render_as => ( is => 'rw', isa => 'Str', required => 1, default => 'view' );
+
 # Given a name generate a unique field ID
 sub field_name {
   my ($self, $name) = @_;
@@ -135,7 +137,7 @@
   $self->renderer->{view} = \&render_view;
   $self->renderer->{edit} = \&render_edit;
   while(1) {
-    my $out = $self->renderer->{view}->($self);
+    my $out = $self->renderer->{ $self->render_as }->($self);
     my $f = $self->next($out);
     $self->set_from_hash($f);
     $self->exec_buttons($f);