[Catalyst-commits] r6669 - trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-08-16 10:52:47 +0100 (Thu, 16 Aug 2007)
New Revision: 6669

Modified:
   trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/default.pm
   trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/display.pm
Log:
Corrected things in the demo

Modified: trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/default.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/default.pm	2007-08-15 19:56:34 UTC (rev 6668)
+++ trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/default.pm	2007-08-16 09:52:47 UTC (rev 6669)
@@ -4,7 +4,11 @@
 use warnings;
 
 use Wx ':everything';
-use Catalyst::Engine::Wx::Event qw(EVT EVT_QUIT EVT_CLOSE EVT_LIST_ITEM_ACTIVATED);
+use Catalyst::Engine::Wx::Event qw(
+   EVT_QUIT
+   EVT_CLOSE
+   EVT_LIST_ITEM_ACTIVATED
+);
 
 use base 'Wx::Frame';
 
@@ -42,8 +46,9 @@
    $list_ctrl->SetColumnWidth(0, -1);
    $list_ctrl->SetColumnWidth(2, -1);
    
-#   EVT_LIST_ITEM_ACTIVATED( $self, $list_ctrl, '/display' );
-   EVT_LIST_ITEM_ACTIVATED( $list_ctrl, $list_ctrl, 'Test::And->display' );
+   Wx::LogMessage( "Welcome to Catalyst::Engine::Wx !" );
+   
+   EVT_LIST_ITEM_ACTIVATED( $self, $list_ctrl, 'Test::And->display' );
    EVT_CLOSE( $self, sub { EVT_QUIT; } );
    
    return 1;

Modified: trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/display.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/display.pm	2007-08-15 19:56:34 UTC (rev 6668)
+++ trunk/Catalyst-Engine-Wx/demo/lib/SampleAppWx/display.pm	2007-08-16 09:52:47 UTC (rev 6669)
@@ -4,26 +4,11 @@
 use warnings;
 
 use Wx ':everything';
-use Catalyst::Engine::Wx::Event qw(EVT EVT_QUIT EVT_CLOSE EVT_LIST_ITEM_ACTIVATED);
 
-#use base 'Wx::Frame';
-
 sub new {
    my ($class, $catalyst, $c ) = @_;
 
-   Wx::MessageBox('test1', 'test2');
-   use Data::Dumper;
-   
-   my $event = $c->stash->{'_event'};
-   
-   print "_event = ".$event." \n";
-#   print "_event = ".$event->GetIndex." \n";
-#   print "_event = ".$c->stash->{'_event'}->GetItem->GetText." \n";
-   
-   
-#   $event->Skip;
-   
-#   return 1;
+   Wx::MessageBox('Hello world', 'Hello' );
 }