package MyMainWindow
@ISA = qw()

sub MainWindow
sub MainWindow     { return 
return shift;

sub mw
sub mw             { return 
return shift;

sub SetApplication
my ($this, $app) = @_;
return $this->{'Application'};

sub StatusBar
my ($this, $pos) = @_;
return shift->{'StatusBarL'} if(defined $pos and $pos =~ /^l/i);
return shift->{'StatusBarR'};

sub WriteStatusBar
my ($this,$s,$p)=@_;
return undef unless($this->StatusBar($p));
return $this->StatusBar($p)->SetText($s);

sub SetBalloon
sub SetBalloon($) { my ($this,$b)=
return $this->{'Balloon'} = $b;

sub GetBalloon
return shift->{'Balloon'};

sub MainMenu
return shift->{'MainMenu'};

sub new
my $class = shift;
	my $self = Tk::MainWindow->new(
return $this;

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

sub InitWindow
my ($this) = @_;
return if($this->{'Initialized'});

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

sub CreateMenu
my ($this) = @_;

sub CreateWidgets
my ($this) = @_;

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

sub CreateToolBar
my ($this, $position) = @_;

sub CreateStatusBar
my ($this, $position) = @_;
return 1;

sub FloatOnTop
my ($this, $IsTop) = @_;

sub ShowWindow
my ($this, $status) = @_;

sub SetMinSize
my ($this, $w, $h) = @_;
return $this->minsize($w, $h);

sub SetMaxSize
my ($this, $w, $h) = @_;
return $this->maxsize($w, $h);

sub Resizable
my ($this, $WidthResizable, $HeightResizable) = @_;
return $this->resizable($WidthResizable, $HeightResizable);

sub IsValidGeometry
my ($this, $geometry) = @_;
return $geometry =~ /^\d+x\d+[\+-]\d+[\+-]\d+$/;

sub SetGeometry
my ($this, $geometry) = @_;
return undef unless($this->IsValidGeometry($geometry));
return $this->geometry($geometry) if($geometry ne '');
return undef;

sub GetGeometry
my ($this) = @_;
return $this->geometry();

sub SetIcon
my ($this, $icon) = @_;
return $this->iconname($this->{'Icon'} = 'widget');

sub GetIcon
my ($this, $icon) = @_;
return $this->{'Icon'};

sub CreateFont
my ($this, $FontName, $FontSize, $FontStyle) = @_;
return [$FontName, $FontSize, $FontStyle];

sub Close
my ($this) = @_;