



When I compile the following in perlapp my radio button is blacked out.
Anyone have any idea why?
#!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}