[Catalyst-commits] r6360 -
trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx
eriam at dev.catalyst.perl.org
eriam at dev.catalyst.perl.org
Thu May 3 14:59:03 GMT 2007
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
More information about the Catalyst-commits
mailing list