Changeset 10586

Timestamp:

02/07/10 06:40:26 (7 months ago)

Author:

azawawi

Message:

Added "Open in File Browser" to "File > Open" sub menu

Location:

trunk/Padre/lib/Padre

Files:

• Action/File.pm (modified) (1 diff)
• Wx/Main.pm (modified) (1 diff)
• Wx/Menu/File.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Action/File.pm

@@ -99 +99 @@
                 menu_event => sub {
                         $_[0]->on_open;
+                },
+        );
+
+        Padre::Action->new(
+                name         => 'file.open_in_file_browser',
+                need_editor  => 1,
+                need_file    => 1,
+                label      => Wx::gettext('Open in File Browser'),
+                comment    => Wx::gettext('Opens the current document using the file browser'),
+                menu_event => sub {
+                        my $document = $_[0]->current->document or return;
+                        $_[0]->on_open_in_file_browser($document->filename);
                 },
         );

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -2217 +2217 @@
 =pod
 
+=head3 C<on_open_in_file_browser>
+
+    $main->on_open_in_file_browser( $filename );
+
+Opens the current C<$filename> using the operating system's file browser
+
+=cut
+sub on_open_in_file_browser {
+        my ($self, $filename) = @_;
+
+        require Padre::Wx::Directory::OpenInFileBrowserAction;
+        Padre::Wx::Directory::OpenInFileBrowserAction->new->open_in_file_browser($filename);
+}
+
+=pod
+
 =head3 C<run_command>
 

trunk/Padre/lib/Padre/Wx/Menu/File.pm

@@ -102 +102 @@
                 $file_open,
                 'file.open_example',
+        );
+
+        $self->{open_in_file_browser} = $self->add_menu_action(
+                $file_open,
+                'file.open_in_file_browser',
         );