Ticket #484: brace_match_select.patch

Padre/lib/Padre/Action/Edit.pm

@@ -318 +318 @@
             Padre::Wx::Main::on_brace_matching(@_);
         },
     );
+    
+    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(
         name           => 'edit.join_lines',

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',
+    );
 
     $self->{join_lines} = $self->add_menu_action(
         $self,
@@ -361 +366 @@
     $self->{quick_fix}->Enable($hasdoc);
     $self->{autocomp}->Enable($hasdoc);
     $self->{brace_match}->Enable($hasdoc);
+    $self->{brace_match_select}->Enable($hasdoc);
     $self->{join_lines}->Enable($hasdoc);
 
     $self->{insert_special}->Enable($hasdoc);