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 $this;

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

sub SetTitle
my ($this, $title) = @_;
return $$p unless(defined $title);
return $$p = $title;

sub GetTitle
my ($this) = @_;
return $$p;

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

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