package TkGPGL
@ISA = qw()

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

sub SetFileName
sub SetFileName { my ($this,$f)=
return $this->{'FileName'} = $f;
#sub SetCanvas          { my($this,$can)=
return $this->{'Canvas'} = $can;
return shift->{'Canvas'};

sub Canvas
my ($this, $canvas) = @_;
return $canvas;
return $this->mw()->Canvas();
my $this=shift;
return ($this->{'CurPosX'},$this->{'CurPosY'});
my ($this,$x,$y)= @_;

sub GetCurVal
sub GetCurVal { my $this=
return ($this->{'CurValX'}, $this->{'CurValY'});

sub SetCurVal
sub SetCurVal { my ($this,$x,$y) = 

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

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

sub get_cmd
my ($this, $line) = @_;
return ($command, @a);

sub ValToPos
my ($this, $vx, $vy) = @_;
return (int($x+0.5), int($y+0.5));

sub X
my ($this, @a) = @_;
return $this->Axis(@a);

sub Axis
my ($this, @a) = @_;
return unless(defined $a[2]);

sub J
my ($this, @a) = @_;

sub L

sub B

sub T

sub A

sub C
my ($this, @a) = @_;
return undef unless(defined $a[1]);
return $this->M(@a);

sub P
my ($this, @a) = @_;
return undef unless(defined $a[0]);

sub N
my ($this, @a) = @_;
return undef unless(defined $a[0]);
return;

sub S
my ($this, @a) = @_;
return undef unless(defined $a[0]);
return;

sub Q
my ($this, @a) = @_;
return undef unless(defined $a[0]);

sub R
my ($this, @a) = @_;
return undef unless(defined $a[1]);
return $this->M($x, $y);

sub I
my ($this, @a) = @_;
return undef unless(defined $a[1]);

sub H
my ($this, @a) = @_;
return undef unless(defined $a[1]);
return $this->M(@a);

sub M
my ($this, @a) = @_;
return undef unless(defined $a[1]);

sub D
my ($this, @a) = @_;
return undef unless(defined $a[1]);

sub Draw
my ($this, $canvas) = @_;
return undef;

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

sub AssignGraphData
my ($this) = @_;

sub DeleteWidget
my ($this, $Frame) = @_;
return undef unless($Frame);
return 1;

sub AddWidget
my ($this, $Frame) = @_;
return undef unless($Frame);
return 1;

sub SetFileInfo
my ($this, $ListBox, $TextBox) = @_;
return undef unless($ListBox);
return undef unless($TextBox);
return 1;