package TkDVXa
@ISA = qw()

sub BEGIN

sub new
my ($module, $app, $canvas) = @_;
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub SetCanvas
sub SetCanvas          { my($this,$can)=
return $this->{'Canvas'} = $can;

sub Canvas
return shift->{'Canvas'};

sub GetGraphFrameArray
return shift->{'GraphFrameArray'};

sub CreateGraphFrame
my ($this, $canvas) = @_;

sub AssignGraphData
my ($this) = @_;

sub AdjustViewRange
my ($this) = @_;

sub Draw
my ($this, $canvas) = @_;
return $GPGL->Draw($canvas);