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

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-05-03 11:48:30 +0100 (Thu, 03 May 2007)
New Revision: 6359

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
Fixed some events in TreeCtrl for typos.

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-05-02 16:01:06 UTC (rev 6358)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-05-03 10:48:30 UTC (rev 6359)
@@ -3955,7 +3955,7 @@
 }
 sub EVT_TREE_ITEM_COLLAPSING($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_COLLAPSING, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_COLLAPSING, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -3976,7 +3976,7 @@
 }
 sub EVT_TREE_SEL_CHANGED($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGED, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGED, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -3997,7 +3997,7 @@
 }
 sub EVT_TREE_SEL_CHANGING($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGING, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGING, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4018,7 +4018,7 @@
 }
 sub EVT_TREE_KEY_DOWN($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_KEY_DOWN, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_KEY_DOWN, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4039,7 +4039,7 @@
 }
 sub EVT_TREE_DELETE_ITEM($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_DELETE_ITEM, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_DELETE_ITEM, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4060,7 +4060,7 @@
 }
 sub EVT_TREE_ITEM_ACTIVATED($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_ACTIVATED, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_ACTIVATED, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4081,7 +4081,7 @@
 }
 sub EVT_TREE_ITEM_RIGHT_CLICK($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4102,7 +4102,7 @@
 }
 sub EVT_TREE_ITEM_MIDDLE_CLICK($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MIDDLE_CLICK, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MIDDLE_CLICK, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4123,7 +4123,7 @@
 }
 sub EVT_TREE_ITEM_MENU($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MENU, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MENU, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4148,7 +4148,7 @@
 #
 sub EVT_UPDATE_UI($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::EVT_UPDATE_UI, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::EVT_UPDATE_UI, $_[2] );
    }
    else {
       my $parent     = $_[0];
@@ -4194,7 +4194,7 @@
 #
 sub EVT_HYPERLINK($$$) {
    if (ref $_[2] eq 'CODE') {
-      $_[0]->Connect( -1, -1, &Wx::EVT_HYPERLINK, $_[1] );
+      $_[0]->Connect( $_[1], -1, &Wx::EVT_HYPERLINK, $_[2] );
    }
    else {
       my $parent     = $_[0];