Changeset 11053

Timestamp:

03/10/10 15:16:14 (2 years ago)

Author:

karl.forner

Message:

Ticket #484:
Select a complete block from one brace to another

Made a quick implementation of the requested feature. I could not bind it to CTRL+SHIFT+1 because on my French keyboard it is the combination I have to type to produce the CTRL+1 shortcut, so I bound it to CTRL+4

Location:

trunk/Padre/lib/Padre

Files:

• Action/Edit.pm (modified) (1 diff)
• Wx/Menu/Edit.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Action/Edit.pm

@@ -319 +319 @@
         },
     );
+    
+    Padre::Action->new(
+        name        => 'edit.brace_match_select',
+        need_editor => 1,
+        label       => Wx::gettext('&Select to matching brace'),
+        comment     => Wx::gettext('Select to the matching opening or closing brace: {, }, (, )'),
+        shortcut    => 'Ctrl-4',
+        menu_event  => sub {
+            my $self = shift;
+            my $INVALID_POSITION = Wx::wxSTC_INVALID_POSITION;
+            my $page = $self->current->editor;
+            my $pos1 = $page->GetCurrentPos;
+            my $pos2 = $page->BraceMatch($pos1);
+            if ( $pos2 == $INVALID_POSITION ) { #Wx::wxSTC_INVALID_POSITION
+                if ( $pos1 > 0 ) {
+                    $pos1--;
+                    $pos2 = $page->BraceMatch($pos1);
+                }
+            }
+
+            if ( $pos2 != $INVALID_POSITION ) { #Wx::wxSTC_INVALID_POSITION
+                my $start = $page->GetSelectionStart();
+                $page->SetSelection($start, $pos2+1);
+            }
+
+            return;         
+        },
+    );
 
     Padre::Action->new(

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

@@ -144 +144 @@
         $self,
         'edit.brace_match',
+    );
+    
+    $self->{brace_match_select} = $self->add_menu_action(
+        $self,
+        'edit.brace_match_select',
     );
 
@@ -362 +367 @@
     $self->{autocomp}->Enable($hasdoc);
     $self->{brace_match}->Enable($hasdoc);
+    $self->{brace_match_select}->Enable($hasdoc);
     $self->{join_lines}->Enable($hasdoc);