package TkCommon
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

sub MainWindow
return shift->App()->mw();

sub mw
return shift->App()->mw();

sub MainMenu
return shift->App()->mw()->MainMenu();

sub StatusBar
sub StatusBar     { my($this,$p)=
return shift->mw()->StatusBar($p);

sub WriteStatusBar
sub WriteStatusBar { my ($this,$s,$p)=
return $this->mw()->WriteStatusBar($s,$p);

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

sub GetBalloon
return shift->mw()->GetBalloon();

sub Usage
return shift->App()->Args()->Usage();

sub GetFontFamilies
my ($this) = @_;
return $this->fontFamilies();

sub GetFontNames
my ($this) = @_;
return $this->FontFamilies();

sub SetFont
my ($this, $pFont) = @_;
return $this->configure(-font, $pFont);