package MyTk
@ISA = qw()
@ISA = qw()

sub BEGIN

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

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

sub Initialize
my ($this) = @_;
return -1;
return 1;

sub MainLoop
my ($this) = @_;

sub AddIniFileVariable
my ($this, $KeyTree, $VarName) = @_;
return unless($VarName);
return unless($section);

sub ReadSetting
my ($this) = @_;
return unless($IniFile);
return unless($pHash);
return 1;

sub SaveSetting
my ($this) = @_;
return unless($IniFile);
return unless($pHash);
return 1;

sub OpenIniFile
my ($this, $ProgramPath, $CreateIniFile) = @_;
return $this->{'IniFile'} = new IniFile($ProgramPath, $CreateIniFile);

sub ConnectDocument
my ($this, $doc) = @_;

sub Doc
return shift->{'Document'};

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

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

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

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

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

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

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

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

sub MySQLCharCode
return shift->{'PerlChaMySQLCharCoderCode'};

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

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

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

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

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

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

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

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

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

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

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

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

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

sub SetProgram
sub SetProgram     { my ($this,$p) = 
return $this->{'Program'}     = $p;

sub SetProgramPath
sub SetProgramPath { my ($this,$p) = 
return $this->{'ProgramPath'} = $p;

sub SetVersion
sub SetVersion { my ($this,$p) = 
return $this->{'Version'} = $p;

sub SetTitle
sub SetTitle   { my ($this,$p) = 
return $this->{'Title'}   = $p;

sub print
my ($this, @args) = @_;
return $this->{'stdio'}->print(@args) if($this->{'stdio'});
return print(@args);

sub DebugPrint
my ($this, @args) = @_;
return $this->print(@args) if($this->{'Debug'});
return '';