/[Frey]/trunk/lib/Continuity/Widget.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Continuity/Widget.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 72 by dpavlin, Wed Jul 9 16:36:21 2008 UTC revision 73 by dpavlin, Wed Jul 9 20:43:48 2008 UTC
# Line 33  has 'uuid'   => ( Line 33  has 'uuid'   => (
33    default => sub { Data::UUID->new->create_str }    default => sub { Data::UUID->new->create_str }
34  );  );
35    
36    has render_as => ( is => 'rw', isa => 'Str', required => 1, default => 'view' );
37    
38  # Given a name generate a unique field ID  # Given a name generate a unique field ID
39  sub field_name {  sub field_name {
40    my ($self, $name) = @_;    my ($self, $name) = @_;
# Line 135  sub main { Line 137  sub main {
137    $self->renderer->{view} = \&render_view;    $self->renderer->{view} = \&render_view;
138    $self->renderer->{edit} = \&render_edit;    $self->renderer->{edit} = \&render_edit;
139    while(1) {    while(1) {
140      my $out = $self->renderer->{view}->($self);      my $out = $self->renderer->{ $self->render_as }->($self);
141      my $f = $self->next($out);      my $f = $self->next($out);
142      $self->set_from_hash($f);      $self->set_from_hash($f);
143      $self->exec_buttons($f);      $self->exec_buttons($f);
Legend:
Removed from v.72  
changed lines
  Added in v.73
  ViewVC Help
Powered by ViewVC 1.1.26