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

eriam at dev.catalyst.perl.org eriam at dev.catalyst.perl.org
Fri Aug 31 15:17:47 GMT 2007


Author: eriam
Date: 2007-08-31 15:17:47 +0100 (Fri, 31 Aug 2007)
New Revision: 6826

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
Corrected some events

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-08-31 09:18:34 UTC (rev 6825)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-08-31 14:17:47 UTC (rev 6826)
@@ -3463,7 +3463,7 @@
 }
 sub EVT_SPIN($$$) { 
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_THUMBTRACK, $_[2] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBTRACK, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -3484,7 +3484,7 @@
 }
 sub EVT_SPINCTRL($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_SPINCTRL_UPDATED, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPINCTRL_UPDATED, $_[2] );
    }
    else {
       my $parent     = $_[0];




More information about the Catalyst-commits mailing list