#========================================================
# TkPlotDoc
#========================================================
package TkPlotDoc;
use MyDocument;
@ISA = qw(MyDocument);

use strict;

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
BEGIN { }

sub new
{
	my $class = shift;
	my $self = MyDocument->new(@_);
	my $ret = bless $self, $class;
	$self->{'GraphFrame.x0'} = 0.0;
	$self->{'GraphFrame.y0'} = 0.0;
	$self->{'GraphFrame.x1'} = 1.0;
	$self->{'GraphFrame.y1'} = 1.0;
	return $ret;
}

sub DESTROY
{
	my $this = shift;
	$this->SUPER::DESTROY(@_);
}


1;