[Catalyst-commits] r7113 - in trunk/Catalyst-Engine-Wx/lib/Catalyst: Engine Helper/View Log Plugin/Session/State View

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-11-09 17:39:38 +0000 (Fri, 09 Nov 2007)
New Revision: 7113

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Log/Wx.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxPrintout.pm
Log:
Version change

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -13,7 +13,7 @@
 use IO::String;
 use URI;
 
-our $VERSION = "0.02_02";
+our $VERSION = "0.02_03";
 
 my $uri_proto = URI->new();
 my $app;
@@ -151,6 +151,9 @@
 
     MyApp->run;
 
+Combine it with the Catalyst-View-Wx and have Catalyst work
+with wxPerl interfaces.
+
 =head1 DESCRIPTION
 
 This is the Catalyst engine specialized for building non-blocking and

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -3,6 +3,8 @@
 use strict;
 use File::Spec;
 
+our $VERSION = "0.02_03";
+
 sub mk_compclass {
     my ( $self, $helper, @args ) = @_;
     my $file = $helper->{file};
@@ -144,11 +146,12 @@
 use warnings;
 
 use Wx ':everything';
+
 use Catalyst::Engine::Wx::Event qw(
-   EVT_QUIT
-   EVT_CLOSE
-   EVT_BUTTON
-   EVT
+   CAT_EVT_BUTTON
+   CAT_EVT_QUIT
+   CAT_EVT
+   CAT_EVT_CLOSE
 );
 
 use base 'Wx::Frame';
@@ -161,8 +164,15 @@
     my $self = $class->SUPER::new( undef, -1, 'Default', [0, 0], [475,300] );
     
     # An input text box
-	$self->{message} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, );
+    # if we give a name to the wx object we can get the parameter value 
+    # in the controller with that name
+	$self->{message} = Wx::TextCtrl->new($self, -1, "", 
+	    wxDefaultPosition, wxDefaultSize, 0, 
+	    wxDefaultValidator, 'message'); 
     
+    # You can set the name of the object like this also 
+    $self->{message}->SetName('message');
+    
     # A button to display a dialog box   
     $self->{button} = Wx::Button->new($self, -1, "Click me !");
     
@@ -182,11 +192,9 @@
     Wx::LogMessage( "Welcome to Catalyst::Engine::Wx !" );
     
     # Attach events
-    EVT_BUTTON( $self, $self->{button}, sub {
-        EVT($self, 'Root->hello_world', { message => $self->{message}->GetValue })
-    });
+    CAT_EVT_BUTTON( $self, $self->{button}, 'Root->hello_world');
     
-    EVT_CLOSE( $self, sub { EVT_QUIT; } );
+    CAT_EVT_CLOSE( $self, sub { CAT_EVT_QUIT; } );
     
     return 1;
 }

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Log/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Log/Wx.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Log/Wx.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -5,10 +5,10 @@
 use Data::Dump;
 use Wx qw[:everything];
 
-our $VERSION = "0.01_01";
+our $VERSION = "0.02_03";
 
 use Catalyst::Engine::Wx::Event qw(
-   EVT
+   CAT_EVT
 );
 
 our %LEVELS = ();

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -4,9 +4,9 @@
 use strict;
 use warnings;
 
-use NEXT;
+use next;
 
-our $VERSION = "0.01_01";
+our $VERSION = "0.02_03";
 
 BEGIN { __PACKAGE__->mk_accessors(qw/_deleted_session_id/) }
 

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -11,7 +11,7 @@
 use Module::Reload; 
 use Data::Dumper;
 
-our $VERSION = '0.01_01';
+our $VERSION = "0.02_03";
 
 =head1 NAME
 

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -8,7 +8,7 @@
 
 use Wx::Html;
 
-our $VERSION = '0.01_01';
+our $VERSION = "0.02_03";
 
 =head1 NAME
 

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxPrintout.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxPrintout.pm	2007-11-09 17:37:46 UTC (rev 7112)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxPrintout.pm	2007-11-09 17:39:38 UTC (rev 7113)
@@ -8,7 +8,7 @@
 
 use Wx::Print;
 
-our $VERSION = '0.01_01';
+our $VERSION = "0.02_03";
 
 =head1 NAME