Works fine for me. Perl v5.8.3 Win-GUI 0.0.558
> -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] > 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
