#!perl

#
# Headers
#
use warnings;
use Win32::GUI();
my ($tlver);
my $ver = "1.0.";
my @menu_defn = (
    "File"  => "File",
    ">Exit" => { -name => "Exit", -onClick => sub{-1}, },
    "&Help"                       => "Help",
    "   > &About "                => { -name => "About", -onClick => \&show_about },
);
my $menu = Win32::GUI::Menu->new(@menu_defn);
my $Win = new Win32::GUI::Window(
      -left   => 1739,
      -top    => 184,
      -width  => 685,
      -height => 750,
      -name   => "Win",
      -text   => "Export Utility",
	  -menu	=> $menu,
	  -dialogui	=>	1,
      );

$Win->Show();
my $GB1 = Win32::GUI::Groupbox->new($Win,
       -text    => "Select Version:",
       -name    => "GroupBox_1",
       -left    => 27,
       -top     => 12,
       -width   => 211,
       -height  => 55,
      );
$Win->AddRadioButton(
       -text    => "6.0.5",
       -name    => "RadioButton_1",
       -left    => 6,
       -top     => 19,
       -width   => 44,
       -height  => 12,
       -parent	=> $GB1,
       -onClick	=> sub {$tlver = '6.0.5';
		},
      );
 Win32::GUI::Dialog();
 sub mw_Terminate {
	return -1;
}
##############
# Showabout  #
##############
sub show_about {
	my $win = shift;
	$win->MessageBox(
		"Export Utility v1.0\r\n" .
		"David Wink, 2008",
		"About Event Export Utility",
		MB_OK,
	);
}
sub MB_ICONERROR() {16}