File Coverage

lib/Draft/TkGui/Entity/Line.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	21	38.1

package Draft::TkGui::Entity::Line;

=head1 NAME

Draft::TkGui::Entity::Line - a line

=head1 SYNOPSIS

A line consists of two points.

=cut

use strict;
use warnings;

# FIXME should subclass Draft::Entity::Line, not the other way around

#use Draft::Entity::Line;
#use vars qw(@ISA);
#@ISA = qw(Draft::Entity::Line);

=pod

=head1 DESCRIPTION

Though a line consists of just two points, it should really be
extended to an arbitrary number of points - A polyline.

=cut

sub Draw
{
    my $self = shift;
    my ($canvas, $offset, $parents, $ignore) = @_;

    my $new_parents = [@$parents, $self->{_path}];

    my $tags = join (" ", @{$new_parents});

    for my $stuff (@{$new_parents})
    {
        if (defined $File::Atomism::EVENT->{_new}->{$stuff})
        {
            $canvas->createLine ($self->{0}->[0] + $offset->[0] ."m",
                                 $self->{0}->[1] + $offset->[1] ."m",
                                 $self->{1}->[0] + $offset->[0] ."m",
                                 $self->{1}->[1] + $offset->[1] ."m",
                                        -tags => $tags);
        }
    }
}

1;