made listview do paging and ordering and all sorts of stupid shit. nobody is welcome...

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / ListView.pm

package Reaction::UI::ViewPort::ListView;

use Reaction::Class;
use aliased 'Reaction::UI::ViewPort::GridView::Entity::WithActions';

class ListView is 'Reaction::UI::ViewPort::GridView', which {

  does 'Reaction::UI::ViewPort::GridView::Role::Order';
  does 'Reaction::UI::ViewPort::GridView::Role::Pager';
  does 'Reaction::UI::ViewPort::GridView::Role::Actions';


  #If I decide that object actions and collection actions should be
  #lumped together i oculd move these into the collection action role
  #ooor we could create a third role that does this, but gah, no?
  implements build_entity_class => as { WithActions };

  #You'se has to goes aways. sorry.
  #if i saved the args as an attribute i could probably get around this....
  implements object_action_count => as {
    my $self = shift;
    for ( @{ $self->entities } ) {
      #pickup here, and of to the widget for listview
      return scalar @{ $_->action_prototypes };
    }
  };

};

1;