[Catalyst-commits] r6335 - in trunk/Catalyst-Engine-Wx: . lib/Catalyst/Engine lib/Catalyst/Engine/Wx

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-04-28 17:57:06 +0100 (Sat, 28 Apr 2007)
New Revision: 6335

Modified:
   trunk/Catalyst-Engine-Wx/MANIFEST
   trunk/Catalyst-Engine-Wx/Makefile.PL
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
removed SimpleHTTP references ..

Modified: trunk/Catalyst-Engine-Wx/MANIFEST
===================================================================
--- trunk/Catalyst-Engine-Wx/MANIFEST	2007-04-28 16:52:19 UTC (rev 6334)
+++ trunk/Catalyst-Engine-Wx/MANIFEST	2007-04-28 16:57:06 UTC (rev 6335)
@@ -1,24 +0,0 @@
-Changes
-examples/server.pl
-inc/Module/Install.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
-lib/POE/Component/Server/SimpleHTTP.pm
-lib/POE/Component/Server/SimpleHTTP/Connection.pm
-lib/POE/Component/Server/SimpleHTTP/PreFork.pm
-lib/POE/Component/Server/SimpleHTTP/Response.pm
-Makefile.PL
-MANIFEST			This list of files
-META.yml
-README
-t/1_load.t
-t/2_pod.t
-t/3_pod_coverage.t
-t/4_test_kwalitee.t
-t/5_run.t
-tools/svn-log.perl

Modified: trunk/Catalyst-Engine-Wx/Makefile.PL
===================================================================
--- trunk/Catalyst-Engine-Wx/Makefile.PL	2007-04-28 16:52:19 UTC (rev 6334)
+++ trunk/Catalyst-Engine-Wx/Makefile.PL	2007-04-28 16:57:06 UTC (rev 6335)
@@ -1,11 +1,11 @@
 #use ExtUtils::MakeMaker;
 use inc::Module::Install;
 
-name 'POE-Component-Server-SimpleHTTP';
-author 'Apocalypse <APOCAL at cpan.org>';
+name 'Catalyst::Engine::Wx';
+author 'Eriam Schaffter <eriam at cpan.org>';
 license 'perl';
-version_from 'lib/POE/Component/Server/SimpleHTTP.pm';
-abstract_from 'lib/POE/Component/Server/SimpleHTTP.pm';
+version_from 'lib/Catalyst/Engine/Wx.pm';
+abstract_from 'lib/Catalyst/Engine/Wx.pm';
 
 # Build the prerequisite list
 requires 	'HTTP::Date' 			=> 	0;
@@ -16,20 +16,7 @@
 requires	'Socket'			=>	0;
 requires	'HTTP::Request'			=>	0;
 requires	'HTTP::Response'		=>	0;
+requires	'Wx'		                =>	0;
 
-# Ask users if they want SSL support
-my $value = prompt( 'Do you want SSL support ( requires POE::Component::SSLify ) [Y/n]?', 'N' );
 
-# Add to the prereqs PoCo::SSLify?
-if ( $value =~ /^Y$/i ) {
-	requires 'POE::Component::SSLify' => '0.04';
-}
-
-# Ask users if they want PreFork support
-$value = prompt( 'Do you want PreFork support ( requires IPC::Shareable ) [Y/n]?', 'N' );
-
-# Add to the prereqs IPC::Shareable?
-if ( $value =~ /^Y$/i ) {
-	requires 'IPC::Shareable' => '0';
-}
 WriteAll();

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-04-28 16:52:19 UTC (rev 6334)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm	2007-04-28 16:57:06 UTC (rev 6335)
@@ -26,7 +26,7 @@
       my $parent     = $_[0];
       my $controller = $_[1];
       
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_BUTTON_CLICKED, sub {
+      $_[0]->Connect( -1, -1, &Wx::wxEVT_ACTIVATE, sub {
          my( $this, $event ) = @_;
    
          POE::Kernel->post('_WAXALYST', 'EVENT_REQUEST', {
@@ -45,7 +45,7 @@
       my $parent     = $_[0];
       my $controller = $_[1];
       
-      $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_BUTTON_CLICKED, sub {
+      $_[0]->Connect( -1, -1, &Wx::wxEVT_ACTIVATE_APP, sub {
          my( $this, $event ) = @_;
    
          POE::Kernel->post('_WAXALYST', 'EVENT_REQUEST', {

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-04-28 16:52:19 UTC (rev 6334)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-04-28 16:57:06 UTC (rev 6335)
@@ -112,11 +112,18 @@
    $base->path_query($base_path);
    $c->request->base($base);
    
-   $c->parent($request->{'parent'});
+   $c->stash->{_parent} = $request->{'parent'};
 }
 
 =head1 AUTHORS
 
+Eriam Schaffter, C<eriam at cpan.org>
+
+=head1 COPYRIGHT
+
+This program is free software, you can redistribute it and/or modify it 
+under the same terms as Perl itself.
+
 =cut
 
 1;