package EnergyLevelGraphFrame
@ISA = qw()

sub new
my ($module, $mainwindow, $idx) = @_;
return $this;

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

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

sub HoverItem
my ($canvas, $this, $event, $str, $y) = @_;