Draft::TkGui::Drawing - Tk drawing type

Draft documentation

Contained in the Draft distribution.

Index

NAME
SYNOPSIS
DESCRIPTION

Code Index:

package Draft::TkGui::Drawing
- Draw
EOF

NAME

Draft::TkGui::Drawing - Tk drawing type

SYNOPSIS

A container for multiple drawing entities.

DESCRIPTION

Code for displaying a drawing on screen.

Draft documentation

Contained in the Draft distribution.

package Draft::TkGui::Drawing;

use strict;
use warnings;

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

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

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

    $self->Read;

    foreach my $key (keys %{$self})
    {
        next if ($key =~ /^_/);
        next if grep (/^$key$/, @{$ignore});

        $self->{$key}->Draw ($canvas, $offset, $parents, $ignore);
    }
}

1;