Changeset 9640

Timestamp:

12/12/09 07:46:46 (2 years ago)

Author:

azawawi

Message:

Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• Document/Perl.pm (modified) (1 diff)
• Wx/Dialog/OpenResource.pm (modified) (3 diffs)
• Wx/Editor.pm (modified) (3 diffs)
• Wx/Main.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Document/Perl.pm

@@ -1336 +1336 @@
 
     my $key = $event->GetUnicodeKey;
-        
+
     my $pos   = $editor->GetCurrentPos;
     my $line  = $editor->LineFromPosition($pos);

trunk/Padre/lib/Padre/Wx/Dialog/OpenResource.pm

@@ -62 +62 @@
     #Check if we have an open file so we can use its directory
     my $doc = $self->_main->current->document;
-    my $filename = ( defined $doc) ? $doc->filename : undef;
+    my $filename = ( defined $doc ) ? $doc->filename : undef;
     my $dir;
     if ($filename) {
@@ -74 +74 @@
         $dir = Cwd::getcwd();
     }
-    
-    
+
+
     my $old_dir = $self->_directory;
-    if($old_dir && $old_dir ne $dir) {
+    if ( $old_dir && $old_dir ne $dir ) {
+
         # Restart search if the project/current directory is different
         $self->_matched_files(undef);
@@ -83 +84 @@
 
     $self->_directory($dir);
-    $self->SetLabel( Wx::gettext('Open Resource') . ' - ' . $dir);
+    $self->SetLabel( Wx::gettext('Open Resource') . ' - ' . $dir );
 }
 

trunk/Padre/lib/Padre/Wx/Editor.pm

@@ -91 +91 @@
     # Setup EVT_KEY_UP for smart highlighting and non-destructive CTRL-L
     Wx::Event::EVT_KEY_UP( $self, \&on_key_up );
-    
+
     if ( $config->editor_wordwrap ) {
         $self->SetWrapMode(Wx::wxSTC_WRAP_WORD);
@@ -208 +208 @@
             $self->CmdKeyExecute(Wx::wxSTC_CMD_LINEDELETE);
         }
-        $event->Skip(0);  # done processing this nothing more to do
+        $event->Skip(0); # done processing this nothing more to do
         return;
     }
@@ -217 +217 @@
     }
 
-    $event->Skip(1); # we need to keep processing this event
-    
+    $event->Skip(1);     # we need to keep processing this event
+
 }
 

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

@@ -5171 +5171 @@
     my $code  = $event->GetKeyCode;
 
-    
+
     # Remove the bit ( Wx::wxMOD_META) set by Num Lock being pressed on Linux
     # () needed after the constants as they are functions in Perl and