[Catalyst-commits] r7107 - in trunk/Catalyst-Engine-Wx/lib/Catalyst: . Helper Helper/View

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-11-09 14:47:41 +0000 (Fri, 09 Nov 2007)
New Revision: 7107

Added:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm
Log:


Added: trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm	                        (rev 0)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Helper/View/WxApp.pm	2007-11-09 14:47:41 UTC (rev 7107)
@@ -0,0 +1,237 @@
+package Catalyst::Helper::View::WxApp;
+
+use strict;
+use File::Spec;
+
+sub mk_compclass {
+    my ( $self, $helper, @args ) = @_;
+    my $file = $helper->{file};
+    
+    $helper->render_file( 'compclass', $file );
+    $self->mk_templates( $helper, @args );
+}
+
+sub mk_templates {
+    my ( $self, $helper ) = @_;
+    my $base = $helper->{base},;
+    my $ldir = File::Spec->catfile( $base, 'lib', $helper->{app}.'Wx' );
+
+    $helper->mk_dir($ldir);
+
+    foreach my $file (qw(Default Hello)) {
+        $helper->render_file( $file,
+            File::Spec->catfile( $ldir, $file.".pm" ) );
+    }
+    
+    my $sdir = File::Spec->catfile( $base, 'script' );
+    $helper->mk_dir($sdir);
+    $helper->render_file( 'script', File::Spec->catfile( $sdir, lc($helper->{app})."_wx.pl" ) );
+}
+
+=head1 NAME
+
+Catalyst::Helper::View::WxApp - Helper for Wx view which builds a skeleton wxPerl application
+
+=head1 SYNOPSIS
+
+# use the helper to create the view module and templates
+
+    $ script/myapp_create.pl view Wx WxApp
+
+# add something like the following to your main application module
+
+    sub hello_world : Global {
+        my ( $self, $c ) = @_;
+        $c->stash->{class} = 'Hello';
+        $c->stash->{message}  ||= $c->req->param('message') || 'No message';
+    }
+    
+    sub default : Private {
+        my ( $self, $c ) = @_;
+        $c->stash->{class} = 'Default';
+    }
+    
+    sub end : Private {
+        my ( $self, $c ) = @_;
+        $c->forward('MyApp::View::Wx');
+    }
+
+If you have a RenderView make sure it does not try to render other views 
+before the Wx one.
+
+Have fun !
+
+=head1 DESCRIPTION
+
+This helper module creates a Wx View module.  It goes further than
+Catalyst::Helper::View::Wx in that it creates a folder to hold 
+your Wx classes.
+
+=head2 METHODS
+
+=head3 mk_compclass
+
+Generates the component class.
+
+=head3 mk_templates
+
+Generates the templates.
+
+=cut
+
+=head1 SEE ALSO
+
+L<Catalyst>, L<Catalyst::View::Wx>, L<Catalyst::Helper>,
+L<Catalyst::Helper::View::TT>, L<Catalyst::Engine::Wx>
+
+=head1 AUTHOR
+
+Eriam Schaffter <eriam at cpan.org> and with code inspired by 
+Catalyst::Helper::View::TTSite by Andy Wardley <abw at cpan.org>
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify
+it under the same terms as perl itself.
+
+=cut
+
+1;
+
+__DATA__
+
+__compclass__
+package [% class %];
+
+use strict;
+use base 'Catalyst::View::Wx';
+
+__PACKAGE__->config({
+    NAMESPACE       => '[% app %]Wx',
+    CATALYST_VAR    => 'Catalyst',
+});
+
+
+=head1 NAME
+
+[% class %] - Catalyst wxPerl View
+
+=head1 SYNOPSIS
+
+See L<[% app %]>
+
+=head1 DESCRIPTION
+
+Catalyst wxPerl View.
+
+=head1 AUTHOR
+
+[% author %]
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
+
+__Default__
+package [% app %]Wx::Default;
+
+use strict;
+use warnings;
+
+use Wx ':everything';
+use Catalyst::Engine::Wx::Event qw(
+   EVT_QUIT
+   EVT_CLOSE
+   EVT_BUTTON
+   EVT
+);
+
+use base 'Wx::Frame';
+
+sub new {
+    # We receive from the view all the necessary things
+    my ($class, $catalyst, $c ) = @_;
+    
+    # We create the parent window
+    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, );
+    
+    # A button to display a dialog box   
+    $self->{button} = Wx::Button->new($self, -1, "Click me !");
+    
+    # Sizing stuff
+	$self->{sizer_1} = Wx::BoxSizer->new(wxVERTICAL);
+	$self->{sizer_1}->Add($self->{message}, 0, wxEXPAND, 0);
+	$self->{sizer_1}->Add($self->{button}, 0, wxEXPAND, 0);
+	$self->SetSizer($self->{sizer_1});
+	$self->{sizer_1}->Fit($self);
+	$self->Layout();
+	$self->Centre();
+    
+    # Display the window
+    $self->Show(1);
+   
+    # Log something just in case
+    Wx::LogMessage( "Welcome to Catalyst::Engine::Wx !" );
+    
+    # Attach events
+    EVT_BUTTON( $self, $self->{button}, sub {
+        EVT($self, 'Root->hello_world', { message => $self->{message}->GetValue })
+    });
+    
+    EVT_CLOSE( $self, sub { EVT_QUIT; } );
+    
+    return 1;
+}
+
+1;
+__Hello__
+package [% app %]Wx::Hello;
+
+use strict;
+use warnings;
+
+use Wx ':everything';
+
+sub new {
+   my ($class, $catalyst, $c ) = @_;
+
+   Wx::MessageBox($c->stash->{message}, 'Hello' );
+}
+
+1;
+
+__script__
+
+BEGIN {
+    $ENV{CATALYST_ENGINE} ||= 'Wx';
+    require Catalyst::Engine::Wx;
+}  
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use strict;
+use warnings;
+
+use Wx qw[ :everything ]; 
+
+require [% app %];
+use Catalyst::Log::Wx;
+
+[% app %]->log(Catalyst::Log::Wx->new);
+
+[% app %]->setup;
+
+[% app %]->run({
+   bootstrap   => 'Root->default',
+});
+
+1;
\ No newline at end of file