package Tk
@ISA = qw()

sub Populate
	my($cw, $args) = 
return;

sub ClassInit
my ($class, $mw) = @_;
return $class;

sub new
my $class = shift;
my ($parent,@args) = @_;
return bless $self, ref($class) || $class;

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

sub Update
my ($this) = @_;

sub SetTitle
my ($this, $title) = @_;
return $this->{'textvariable'} = $title;
return ${$this->{'ptextvariable'}} = $title;

sub GetTitle
my ($this) = @_;
return ${$this->{'ptextvariable'}};

sub SetText
my ($this, $title) = @_;
return $this->SetTitle($title);

sub GetText
my ($this) = @_;
return $this->GetTitle();