Changeset 8594

Timestamp:

10/03/09 13:23:42 (2 years ago)

Author:

szabgab

Message:

[Parrot] add menu option to open example files

Location:

trunk/Padre-Plugin-Parrot

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Padre/Plugin/Parrot.pm (modified) (2 diffs)

trunk/Padre-Plugin-Parrot/Changes

@@ -1 +1 @@
 Revision history for Padre-Plugin-Parrot
+
+    - Add menu option to open one of the installed example files.
 
 0.26 2009.10.02

trunk/Padre-Plugin-Parrot/Makefile.PL

@@ -30 +30 @@
 
 #requires => 'Parrot::Embed' => 0;
+requires => 'File::ShareDir' => 0;
 test_requires 'Test::More' => '0.47';
 no_index 'directory'       => qw{ t xt eg share inc privinc};

trunk/Padre-Plugin-Parrot/lib/Padre/Plugin/Parrot.pm

@@ -220 +220 @@
     my $self = shift;
     return $self->plugin_name => [
-        'About'     => sub { $self->about },
-        'PIR 2 PBC' => sub { $self->pir2pbc },
+        'About'        => sub { $self->about },
+        'Open Example' => sub { $self->open_example },
+        'PIR 2 PBC'    => sub { $self->pir2pbc },
 
         #'Help'                                        => \&show_help,
@@ -400 +401 @@
 }
 
+sub open_example {
+    require File::ShareDir;
+    my $dir = File::Spec->catdir(
+        File::ShareDir::dist_dir('Padre-Plugin-Parrot'),
+        'examples');
+
+    my $main = Padre->ide->wx->main;
+    return $main->open_file_dialog( $dir );
+}
+
 sub about {
-    my ($main) = @_;
-
     my $about = Wx::AboutDialogInfo->new;
     $about->SetName(__PACKAGE__);