Changeset 9630

Timestamp:

12/12/09 05:39:29 (2 years ago)

Author:

waxhead

Message:

Fixes the fix for ticket #750 the "double tab" effect of Padre::Main::key_up being called twice

Location:

trunk/Padre/lib/Padre

Files:

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

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/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
         return;
     }
@@ -217 +218 @@
 
     $self->main->key_up($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
@@ -5207 +5208 @@
         #       }
     }
-    $event->Skip;
+    $event->Skip(0);
     return;
 }