Changeset 10589

Timestamp:

02/07/10 06:49:42 (2 years ago)

Author:

azawawi

Message:

Perl tidy (only my last change-set)

Location:

trunk/Padre/lib/Padre

Files:

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

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

@@ -103 +103 @@
 
     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 {
+        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);
+            $_[0]->on_open_in_file_browser( $document->filename );
         },
     );

trunk/Padre/lib/Padre/Wx/Directory/TreeCtrl.pm

@@ -738 +738 @@
         $menu->Append( -1, Wx::gettext('Open in File Browser') ),
         sub {
-            $_[0]->main->on_open_in_file_browser( $selected_path );
+            $_[0]->main->on_open_in_file_browser($selected_path);
         }
     );

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

@@ -2224 +2224 @@
 
 =cut
+
 sub on_open_in_file_browser {
-    my ($self, $filename) = @_;
+    my ( $self, $filename ) = @_;
 
     require Padre::Wx::Directory::OpenInFileBrowserAction;