Works fine for me.

Perl v5.8.3
Win-GUI 0.0.558

> -----Original Message-----
> From: perl-win32-gui-users-bounces@lists.sourceforge.net
> [mailto:perl-win32-gui-users-bounces@lists.sourceforge.net]On
> Behalf Of
> Arthur Schwarz
> Sent: Monday, August 28, 2006 2:20 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Event subroutines not called
>
>
> This is the simplest example of what I can't get to work. I
> have a menu inside
> a window and neither the X_Exit_Click nor the
> TopWindow_Terminate subroutines
> are called during Win32::GUI::Dialog() processing. I can't
> figure what I'm
> doing wrong and it's driving me crazy (short drive if you ask me).
>
> art
>
> package Win;
>
> use Win32::GUI;
>
> my $TopMenu = new Win32::GUI::Menu(
>        "&File"                => "X",
>        ">E&xit"               => "X_Exit",
>   );
>
>
> my $TopWindow = new Win32::GUI::Window(
>         -name         => 'TopWindow',
>         -title        => 'GUI Editor',
>         -left         => 30,
>         -top          => 20,
>         -width        => 550,
>         -height       => 450,
>         -minwidth     => 440,
>         -minheight    => 380,
>         -menu         => $TopMenu
>    );
>
> sub TopWindow_Terminate{
>   print "TopWindow_Terminate\n";
>   return -1;
> }  ### TopWindow_Terminate
>
> sub X_Exit_Click  {
>   print "X_Exit_Click\n";
>   return -1;
> }  ### X_Exit_Click
>
>   $TopWindow->Show();                             # makes
> TopWindow visible
>   Win32::GUI::Dialog();                           # Windows
> control loop
>
>
> --------------------------------------------------------------
> -----------
> Using Tomcat but need to do more? Need to support web
> services, security?
> Get stuff done quickly with pre-integrated technology to make
> your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on
> Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&
dat=121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/



__________________________________________________________
This message was scanned by ATX
3:49:14 PM ET - 8/28/2006