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;

}