package EnergyLevelGraphFrameArray
@ISA = qw()

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

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

sub AddGraphFrame
my ($this, $GraphFrame) = @_;

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

sub SelTags
my ($canvas, $this, $command, $x, $y, $X, $Y) = @_;