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

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-05-03 14:59:02 +0100 (Thu, 03 May 2007)
New Revision: 6360

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
Added EVT to fire an event right away and let the user ignore the POE syntax.

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-05-03 10:48:30 UTC (rev 6359)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-05-03 13:59:02 UTC (rev 6360)
@@ -11,6 +11,18 @@
 # !parser: sub { $_[0] =~ m/sub (EVT_\w+)/ }
 # !package: Wx::Event
 
+   
+sub EVT { 
+   my $parent     = $_[0];
+   my $controller = $_[1];
+   my $params     = $_[2] || {};
+
+   $params->{'controller'} = $controller;
+   $params->{'parent'}     = $parent;
+
+   POE::Kernel->post('_WAXALYST', 'EVENT_REQUEST', $params);
+}
+
 #
 # ActivateEvent
 #
@@ -4262,7 +4274,8 @@
 sub EVT_STC_HOTSPOT_DCLICK($$$);
 sub EVT_STC_CALLTIP_CLICK($$$);
 
-push @EXPORT_OK, qw(EVT_ACTIVATE
+push @EXPORT_OK, qw(EVT
+EVT_ACTIVATE
 EVT_ACTIVATE_APP
 EVT_COMMAND_RANGE
 EVT_BUTTON