#!/usr/bin/perl -w

#Start: use TkLibraries
use lib "D:/tkProg/tkProg.main/tkprog_COE/lib";
use lib "D:/tkProg/tkProg.main/tkprog_COE/TkPlot";
#End: use TkLibraries

use strict;
#use warnings;
use utf8;

use TkPlotApp;

#===============================================
# 環境に合わせて変える
#===============================================
my $BaseDir = ($^O eq 'linux')? "$ENV{HOME}/bin" : "D:\\Programs\\Perl\\TkPlot";

my $App = new TkPlotApp();

$App->Execute(
		-BaseDir           => $BaseDir,
		-Version           => '0.1',
		-WindowTitle       => 'Diffraction 2008/pl',
		-Style             => 'Diffraction',
		-LoadModule        => "clib/TkDiffraction",
		-NoAutoLoadModules => 1,
		-Vertical          => 0,
		-ReadPrev          => 0,
		-ExecuteAll        => 1,
	);
exit;