/[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 83 by dpavlin, Thu Jul 10 15:29:01 2008 UTC revision 84 by dpavlin, Thu Jul 10 17:19:40 2008 UTC
# Line 23  with 'Continuity::Coro::Moose'; Line 23  with 'Continuity::Coro::Moose';
23    
24  # List of callbacks, buttons for now  # List of callbacks, buttons for now
25  has callback => ( is => 'rw', default => sub {{}} );  has callback => ( is => 'rw', default => sub {{}} );
26    has callback_order => ( is => 'rw', isa => 'ArrayRef', default => sub { [] });
27    
28  has renderer => ( is => 'rw', isa => 'HashRef', default => sub {{}});  has renderer => ( is => 'rw', isa => 'HashRef', default => sub {{}});
29    
# Line 125  sub set_from_hash { Line 126  sub set_from_hash {
126  sub add_button {  sub add_button {
127    my ($self, $name, $callback) = @_;    my ($self, $name, $callback) = @_;
128    $self->callback->{$name} = $callback;    $self->callback->{$name} = $callback;
129      push @{ $self->callback_order }, $name;
130      warn "## callback_order = ",dump( $self->callback_order );
131  }  }
132    
133  sub remove_button {  sub remove_button {
# Line 135  sub remove_button { Line 138  sub remove_button {
138  sub render_buttons {  sub render_buttons {
139    my ($self) = @_;    my ($self) = @_;
140    my $out = '';    my $out = '';
141    foreach my $name (keys %{$self->callback}) {    foreach my $name ( @{ $self->callback_order } ) {
142      my $btn_name = $self->field_name($name);      my $btn_name = $self->field_name($name);
143      $out .= qq{      $out .= qq{
144        <input type="submit" name="@{[$btn_name]}" value="$name">        <input type="submit" name="@{[$btn_name]}" value="$name">
Legend:
Removed from v.83  
changed lines
  Added in v.84
  ViewVC Help
Powered by ViewVC 1.1.26