Arthur Schwarz wrote:
[snip]
I put the <event handler> into my 'Win' nanamespacesing 'project Win;',
violating condition 1) above. I can't figure how you got it to work. If you
did, then my reasoning above is incorrect and needs to be changed. Any ideas?
Peter is using a very, very old version of Win32::GUI. All the event
handling was re-written for the V1.0(? possibly earlier) release - I
haven't looked, but it's possible the restriction of OEM subs having to
be in package main didn't exist this long ago.
Regards,
Rob.
puzzled art
--- Peter EiEisengreinPeter.EiEisengreintatxom> wrote:
Works fine for me.
Perl v5.8.3
Win-GUI 0.0.558
-----Original Message-----
From: [EMAIL PROTECTED]
[EMAIL PROTECTED]
Behalf Of
Arthur ScSchwarz> > Sent: Monday, August 28, 2006 2:20 PM
To: [EMAIL PROTECTED]
Subject: [peperlin32-guguisers] 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
ToTopWindowerminate 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 $ToTopMenu new Win32::GUI::Menu(
"&File" => "X",
">E&xixit => "X_Exit",
);
my $ToTopWindow new Win32::GUI::Window(
-name => 'ToTopWindow
-title => 'GUI Editor',
-left => 30,
-top => 20,
-width => 550,
-height => 450,
-miminwidth => 440,
-miminheight => 380,
-menu => $ToTopMenu> > );
sub ToTopWindowerminate{
print "ToTopWindowerminate\n";
return -1;
} ### ToTopWindowerminate
sub X_Exit_Click {
print "X_Exit_Click\n";
return -1;
} ### X_Exit_Click
$ToTopWindowShow(); # makes
ToTopWindowisible
Win32::GUI::Dialog(); # Windows
control loop
--------------------------------------------------------------
-----------
Using Tomcat but need to do more? Need to support web
services, security?
Get stuff done quickly with prprentegrated technology to make
your job easier
Download IBM WeWebSpherepplication Server v.1.0.1 based on
Apache Geronimo
hthttp/sesels-us.fafalkaget/seselmcmdnlnkid=120709&bid=263057&
dadat21642
_______________________________________________
Perl-Win32-GUI-Users mailing list
[EMAIL PROTECTED]
hthttps/lists.sosourceforgeet/lists/lilistinfoeperlin32-guguisers
hthttp/peperlin32-guguiosourceforgeet/
__________________________________________________________
This message was scanned by ATATX> 3:49:14 PM ET - 8/28/2006
-------------------------------------------------------------------------
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/
