@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
rem echo perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto EndOfPerl
:WinNT
rem echo perl -x -S %0 [%*]
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto EndOfPerl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto EndOfPerl
@rem ';
#!/usr/bin/perl 
#line 17

use lib 'd:/tkProg/tklib/Perl/lib';
use lib 'c:/tkProg/tklib/Perl/lib';
use lib 'd:/tkProg/tklib/Perl/lib2.0';
use lib 'c:/tkProg/tklib/Perl/lib2.0';
use lib "d:/tkProg/tkprog/Perl/TkPlot";
use lib "c:/tkProg/tkprog/Perl/TkPlot";

use strict;
#use warnings;

use File::Glob;
use Jcode;

use TkPlotLauncherWindow;
use MyTk::MyTkApplication;


#===============================================
# Applicationクラス作製
#===============================================
my $App = new MyTkApplication;
exit if($App->Initialize() < 0);

#===============================================
# 環境に合わせて変える必要がある
#===============================================
# Windows環境の場合のルートディレクトリィ
	my $BaseDir = "D:\\Programs\\Perl\\TkPlot";
# Linux環境の場合のルートディレクトリィ
	my $home = $ENV{'HOME'};
	$BaseDir    = "$home/bin" if($App->OS() eq 'linux');

# 実行プログラム名（デフォルトでは$0から取得）
	my $Program = $App->Program();
# アプリケーション名
	$App->SetAppName($Program);
# バージョン
	$App->SetVersion("Ver 0.1");
# ウィンドウに表示するタイトル
	$App->SetTitle("TkPlot Launcher 2008/pl");

#===============================================
# 環境設定
#===============================================
my $ProgramPath = $App->SpeculateProgramPath($0, $BaseDir);
print "Program Path: $ProgramPath\n";
#最後の引数を1にすると、IniFileが存在しないと強制終了する
my $IniFile     = $App->OpenIniFile($ProgramPath, 1);
my $IniFilePath = $App->IniFile()->IniFile();
print "IniFile Path: $IniFilePath\n";
my $MyDir = $IniFile->MyDir();
#print "MyDir: $MyDir\n";

if($App->OS() eq 'MSWin32' and !$App->Debug()) {
#	$App->FreeWin32Console();
}

#==========================================
# メインダイアログ作成
#==========================================
my $mw = $App->CreateWindow(TkPlotLauncherWindow->new());

#==========================================
# メインループ
#==========================================
$App->MainLoop();

exit;

#===============================================
# スクリプト終了
#===============================================

#==========================================
# サブルーチン
#==========================================