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

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-11-11 14:30:22 +0000 (Sun, 11 Nov 2007)
New Revision: 7123

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
Test to make sure the parent can GetChildren

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-11-11 14:29:55 UTC (rev 7122)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-11-11 14:30:22 UTC (rev 7123)
@@ -22,7 +22,7 @@
  s u b   _ p o s t _ e v e n t   { 
          m y   ( $ o p t )   =   @ _ ; 
          
-         i f   ( d e f i n e d   $ o p t - > { p a r e n t } )   { 
+         i f   ( d e f i n e d   $ o p t - > { p a r e n t }   & &   $ o p t - > { p a r e n t } - > c a n ( ' G e t C h i l d r e n ' ) )   { 
                  f o r e a c h   ( $ o p t - > { p a r e n t } - > G e t C h i l d r e n )   { 
                          i f   ( $ _ - > c a n ( ' G e t V a l u e ' ) )   { 
                                  $ o p t - > { $ _ - > G e t N a m e }   =   $ _ - > G e t V a l u e ;