Below is a sample program to compile and run to witness problems
As stated in root issue.
###############################################################
# ActiveState's ActivePerl(Perl Core) 5.6.1.638
# Aldo Calpini's Perl Win32::GUI Module Extension 1.02
# IndigoStar's Perl2exe Compiler 5.03
###############################################################
use Win32::GUI;
$LFont = new Win32::GUI::Font(
-name => "Courier New",
-size => 16,
-weight => 700,
-height => -17,
);
$M_W = new Win32::GUI::Menu(
"&File" => "File",
" > &SaveAs" => "SaveAs",
" > &Exit" => "Exit",
"&Help" => "Help",
" > &About" => "About",
);
$W = new Win32::GUI::Window (
-title => "Test Program - Test.pl",
-name => "Window",
-menu => $M_W,
-minwidth => 485,
-minheight => 150,
);
$TF_Text = $W->AddTextfield(
-name => "TF_Text",
-top => 50,
-left => 100,
-height => 30,
-width => 320,
-background => [196,192,153],
-font => $LFont,
-prompt => [ "Text:", -75 ],
);
$TF_Text->MaxLength(25);
$W->TF_Text_Prompt->Change(-align => right, -font => $LFont,);
$LBL_Text = $W->AddLabel(
-name => "LBL_Text",
-text => "Type Some Text To Save To A Text File",
-top => 15,
-left => 20,
-height => 20,
-width => 450,
-foreground => [236,88,0],
-font => $LFont,
);
$W->Show();
$W->Maximize();
$W->BringWindowToTop();
$TF_Text->SetFocus();
#####################
Win32::GUI::Dialog(); #-- start event phase
#####################
#################
sub About_Click {
#################
my $ls_msg = "Test Program - Test.pl\n" .
"ActiveState's ActivePerl(Perl Core) 5.6.1.638\n" .
"Aldo Calpini's Perl Win32::GUI Module Extension 1.02\n"
.
"IndigoStar's Perl2exe Compiler 5.03.\n";
Win32::GUI::MessageBox($W,$ls_msg,"Test Program - Test.pl",64,);
$W->BringWindowToTop();
$TF_Text->SetFocus();
$TF_Text->SelectAll();
}
##################
sub SaveAs_Click {
##################
my $ls_file = Win32::GUI::GetSaveFileName(
-owner => $W,
-title => "Save As",
-file => "Test.txt",
-filter => ['Text Files (*.txt)' => '*.txt',],
-defaultextension => "txt",
-createprompt => 1,
);
if (! defined $ls_file) {
$W->BringWindowToTop();
$TF_Text->SetFocus();
$TF_Text->SelectAll();
return 1;
}
unlink( $ls_file ) if (-e "$ls_file" );
open F, "> $ls_file";
my $ls_text = $TF_Text->Text();
print F "$ls_text\n";
close F;
Win32::GUI::MessageBox($W,"Text Saved to User Selected
File:\n$ls_file","Test Program - Test.pl",64,);
$W->BringWindowToTop();
$TF_Text->SetFocus();
$TF_Text->SelectAll();
}
################
sub Exit_Click {
################
return -1;
}
######################
sub Window_Terminate {
######################
return -1;
}
