package EmulationWindow
@ISA = qw()

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

sub MainWindow
sub MainWindow      { return 
return shift;

sub mw
sub mw              { return 
return shift;

sub title
my ($this, $title) = @_;
return $this->{Title} if(!defined $title);
return $this->{Title} = $title;

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

sub GetBalloon
return shift->{Balloon};

sub MainMenu
return shift->{MainMenu};

sub update

sub InitWindow

sub CreateMainMenu

sub CreateMenu

sub CreateWidgets

sub ModifyMenu

sub CreateToolBar

sub CreateStatusBar

sub FloatOnTop

sub ShowWindow

sub SetMinSize

sub SetMaxSize

sub Resizable

sub IsValidGeometry

sub SetGeometry

sub GetGeometry

sub SetIcon

sub GetIcon

sub CreateFont

sub StatusBar

sub WriteStatusBar
my ($this,$s,$p)=@_;
return $this->App()->print("Status bar: $s\n");

sub Close
my ($this) = @_;

sub messageBox
my ($this, @a) = @_;
return $hash{-default} if($ret eq '' or $hash{-type} !~ /$ret/i);
return $ret;

sub new
my ($module) = @_;
return $this;

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