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

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

diff --git a/lib/Reaction/UI/ViewPort/ListView.pm b/lib/Reaction/UI/ViewPort/ListView.pm
index 7430413..3d21ad6 100644 (file)
--- a/lib/Reaction/UI/ViewPort/ListView.pm
+++ b/lib/Reaction/UI/ViewPort/ListView.pm
@@ -1,11 +1,29 @@
 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::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 };
+    }
+  };
 
 };