package TkCommon;
use Common;
#use Exporter;
@ISA = qw(Common);

#公開したいサブルーチン
#@EXPORT = qw(DelSpace Reduce01 MakePath RegExpQuote);

use strict;

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
BEGIN { }

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

sub DESTROY
{
	my $this = shift;
}

#===============================================
# Application, MainWin, Document 共通関数
#===============================================
sub MainWindow     { return shift->App()->mw();     }
sub mw             { return shift->App()->mw();     }
sub MainMenu       { return shift->App()->mw()->MainMenu(); }

sub StatusBar     { my($this,$p)=@_; return shift->mw()->StatusBar($p); }
sub WriteStatusBar { my ($this,$s,$p)=@_; return $this->mw()->WriteStatusBar($s,$p); }
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);
}

1;