package Tk
@ISA = qw()

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

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

sub BEGIN

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

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