[Catalyst-commits] r6376 - trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-05-08 20:10:21 +0100 (Tue, 08 May 2007)
New Revision: 6376

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
Added an event to quit the application and terminate the POE session.

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-05-08 19:09:30 UTC (rev 6375)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-05-08 19:10:21 UTC (rev 6376)
@@ -10,8 +10,11 @@
 
 # !parser: sub { $_[0] =~ m/sub (EVT_\w+)/ }
 # !package: Wx::Event
+  
+sub EVT_QUIT { 
+   POE::Kernel->post('_WAXALYST', '_stop');
+}
 
-   
 sub EVT { 
    my $parent     = $_[0];
    my $controller = $_[1];
@@ -4275,6 +4278,7 @@
 sub EVT_STC_CALLTIP_CLICK($$$);
 
 push @EXPORT_OK, qw(EVT
+EVT_QUIT
 EVT_ACTIVATE
 EVT_ACTIVATE_APP
 EVT_COMMAND_RANGE