Changeset 10589

Timestamp:

02/07/10 06:49:42 (7 months 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;