From 99535516a8275b3c98a90cb037d2c88219c2b756 Mon Sep 17 00:00:00 2001 From: groditi Date: Fri, 10 Jul 2009 20:42:51 +0000 Subject: String fragment viewport --- lib/ComponentUI/Controller/TestModel/Baz.pm | 12 +++++- lib/ComponentUI/UI/ViewPort/Baz/ListView/Member.pm | 23 +++++++++++ lib/Reaction/UI/ViewPort/Field/String/Fragment.pm | 44 ++++++++++++++++++++++ t/lib/RTest/InterfaceModel/Reflector/DBIC.pm | 4 +- t/lib/RTest/TestDB.pm | 4 +- t/lib/RTest/TestDB/Baz.pm | 4 +- 6 files changed, 85 insertions(+), 6 deletions(-) create mode 100644 lib/ComponentUI/UI/ViewPort/Baz/ListView/Member.pm create mode 100644 lib/Reaction/UI/ViewPort/Field/String/Fragment.pm diff --git a/lib/ComponentUI/Controller/TestModel/Baz.pm b/lib/ComponentUI/Controller/TestModel/Baz.pm index 2fece5a..6c88792 100644 --- a/lib/ComponentUI/Controller/TestModel/Baz.pm +++ b/lib/ComponentUI/Controller/TestModel/Baz.pm @@ -2,6 +2,7 @@ package ComponentUI::Controller::TestModel::Baz; use base 'Reaction::UI::Controller::Collection::CRUD'; use Reaction::Class; +use ComponentUI::UI::ViewPort::Baz::ListView::Member; __PACKAGE__->config( model_name => 'TestModel', @@ -10,7 +11,16 @@ __PACKAGE__->config( base => { Chained => '/base', PathPart => 'testmodel/baz' }, list => { ViewPort => { - enable_order_by => [qw/id name/], + enable_order_by => [qw/id name bool_field description/], + member_class => 'ComponentUI::UI::ViewPort::Baz::ListView::Member', + Member => { + Field => { + description => { + max_length => 40, + layout => 'value/string', + }, + }, + }, }, }, }, diff --git a/lib/ComponentUI/UI/ViewPort/Baz/ListView/Member.pm b/lib/ComponentUI/UI/ViewPort/Baz/ListView/Member.pm new file mode 100644 index 0000000..26740ce --- /dev/null +++ b/lib/ComponentUI/UI/ViewPort/Baz/ListView/Member.pm @@ -0,0 +1,23 @@ +package ComponentUI::UI::ViewPort::Baz::ListView::Member; + +use Reaction::Class; +use namespace::clean -except => [ qw(meta) ]; +use aliased 'Reaction::UI::ViewPort::Field::String::Fragment'; + +extends 'Reaction::UI::ViewPort::Collection::Grid::Member::WithActions'; + +sub _build_layout { + 'collection/grid/member/with_actions'; +} + +sub _build_fields_for_name_description { + my ($self, $attr, $args) = @_; + $self->_build_simple_field(attribute => $attr, class => Fragment, %$args); +} + +__PACKAGE__->meta->make_immutable; + +1; + +__END__; + diff --git a/lib/Reaction/UI/ViewPort/Field/String/Fragment.pm b/lib/Reaction/UI/ViewPort/Field/String/Fragment.pm new file mode 100644 index 0000000..4205769 --- /dev/null +++ b/lib/Reaction/UI/ViewPort/Field/String/Fragment.pm @@ -0,0 +1,44 @@ +package Reaction::UI::ViewPort::Field::String::Fragment; + +use Reaction::Class; +use MooseX::Types::Moose qw/Int/; +extends 'Reaction::UI::ViewPort::Field::String'; + +has max_length => ( + is => 'rw', + isa => Int, + required => 1, + default => sub { 80 } +); + +sub _build_layout { 'field/string' }; + +around _build_value_string => sub { + my $super = shift; + my $self = $_[0]; + my $string = $super->(@_); + my $max_len = $self->max_length; + if(length($string) > $max_len){ + $string = join('', substr( $string, 0, $max_len - 3 ), '...'); + } + return $string; +}; + +1; + +__END__; + +=head1 DESCRIPTION + +If it was possible to address the widgets in any way this wouldn't be necessary. + +Ideally this would be a widget instead of a viewport. But there is currently no +way to implement this in a widget, because it is impossible to pass any +arguments to widgets. + +Using this module will require subclassing the Object or Member Viewport to +override the builder classes for the field you desire to render as a string +fragment. If we ever get a way to pass arguments to layouts or widgets, this +will be greatly simplified. Don't hold your breath. + +=cut diff --git a/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm b/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm index fe1cee6..73effd4 100644 --- a/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm +++ b/t/lib/RTest/InterfaceModel/Reflector/DBIC.pm @@ -195,7 +195,7 @@ sub test_reflect_submodel :Tests{ my %attrs = map { $_->name => $_ } $member->parameter_attributes; my $target; if( $sm eq "Bar"){$target = 4; } - elsif($sm eq "Baz"){$target = 4; } + elsif($sm eq "Baz"){$target = 5; } elsif($sm eq "Foo"){$target = 5; } Test::More::is( scalar keys %attrs, $target, "Correct # of attributes for $sm"); @@ -292,7 +292,7 @@ sub test_reflect_submodel_action :Tests{ my $attr_num; if($action_name =~ /Delete/){next; } elsif($sm eq "Bar"){$attr_num = 4; } - elsif($sm eq "Baz"){$attr_num = 3; } + elsif($sm eq "Baz"){$attr_num = 4; } elsif($sm eq "Foo"){$attr_num = 3; } Test::More::is( scalar keys %attrs, $attr_num, "Correct # of attributes for $sm"); if($attr_num != keys %attrs ){ diff --git a/t/lib/RTest/TestDB.pm b/t/lib/RTest/TestDB.pm index 25012d2..e7b5459 100644 --- a/t/lib/RTest/TestDB.pm +++ b/t/lib/RTest/TestDB.pm @@ -17,8 +17,8 @@ sub setup_test_data { ) } (1 .. 50) ]); $self->populate('Baz' => [ - [ qw/ name / ], - map { [ "Baz $_" ] } (1 .. 4) + [ qw/ name description/ ], + map { [ "Baz $_", ("lorem ipsum dolor sit amet," x $_) ] } (1 .. 4) ]); $self->populate('Bar' => [ [ qw/ name foo_id / ], diff --git a/t/lib/RTest/TestDB/Baz.pm b/t/lib/RTest/TestDB/Baz.pm index 14bbfaa..8ea0c51 100644 --- a/t/lib/RTest/TestDB/Baz.pm +++ b/t/lib/RTest/TestDB/Baz.pm @@ -4,11 +4,12 @@ package # hide from PAUSE use Moose; extends 'DBIx::Class::Core'; -use MooseX::Types::Moose qw/ArrayRef Int Bool/; +use MooseX::Types::Moose qw/ArrayRef Int Bool Str/; use MooseX::Types::Common::String qw/NonEmptySimpleStr/; has 'id' => (isa => Int, is => 'ro', required => 1); has 'name' => (isa => NonEmptySimpleStr, is => 'rw', required => 1); +has 'description' => (isa => Str, is => 'rw',); has 'bool_field' => (isa => Bool, is => 'rw', required => 0); has 'foo_list' => ( isa => ArrayRef, @@ -27,6 +28,7 @@ __PACKAGE__->table('baz'); __PACKAGE__->add_columns( id => { data_type => 'integer', size => 16, is_auto_increment => 1 }, name => { data_type => 'varchar', size => 255 }, + description => { data_type => 'text', is_nullable => 1 }, bool_field => { data_type => 'char', size => '1', -- cgit v1.2.3-54-g00ecf