package MyTkApplication
@ISA = qw()

sub mw
return shift->{MainWindow};

sub MainWindow
return shift->{MainWindow};

sub SetMainWindow
sub SetMainWindow { my($this,$mw)=
return shift->{MainWindow} = $mw;

sub new
my ($module) = @_;
#	$this->SUPER::new(
return $this;

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

sub MainLoop
my ($this) = @_;

sub CreateWindow
my ($this, $MainWindow, $icon) = @_;
return $MainWindow;

sub FreeWin32Console
my ($this) = @_;

sub ShowInfoDialog
my ($this, $parent) = @_;