[perl-win32-gui-users] call a subroutine after the Form appearance

[merryxmas <mer...@ya...>]

hello
the following code will show a msgbox before the Form appears on the screen,
i wonder if it is possible to show the msgbox after the Form appears on the
screen automatically.
use Win32::GUI;

$Win = new Win32::GUI::Window(
      -left   => 3,
      -top    => 5,
      -width  => 640,
      -height => 480,
      -name   => "Win",
      -run    => &message,
      
      );


$Win->Show();
Win32::GUI::Dialog();
sub Win_Terminate {
   return -1;
}

sub message {  
  $msg = "hello";
  Win32::GUI::MessageBox($mw,$msg,".",MB_OK);
 }


 
 

-- 
View this message in context: http://www.nabble.com/call-a-subroutine-after-the-Form-appearance-tp22512510p22512510.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.