package MyToplevel
@ISA = qw()

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

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

sub BEGIN

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

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

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

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