Changeset 10474

Timestamp:

02/02/10 23:34:57 (2 years ago)

Author:

azawawi

Message:

Oops i forgot to perltidy the code :)

File:

• trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm (modified) (4 diffs)

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

@@ -58 +58 @@
 #
 # A private method that returns a hash of regex groups along with their meaning
-# 
+#
 sub _regex_groups {
     my $self = shift;
@@ -152 +152 @@
     my %regex_groups = $self->_regex_groups;
 
-    foreach my $code (keys %regex_groups) {
-        my %sub_group = %{$regex_groups{$code}};
+    foreach my $code ( keys %regex_groups ) {
+        my %sub_group = %{ $regex_groups{$code} };
         $self->{$code} = Wx::Button->new(
             $self, -1, $sub_group{label},
         );
-#       $self->{menu}->Append( -1, $subgroup{label} );
-#       $self->{menu}->AppendSeparator();
-#       my $subgroup_value = $subgroup{value};
-#       foreach my $name (keys %subgroup_value) {
-#           my $menu_item = $self->{menu}->Append( -1, $subgroup_value{$name} );
-#           $self->{menu}->AppendSeparator();
-#       }
-    }
-#   Wx::Event::EVT_MENU(
-#       $self,
-#       $self->{menu},
-#       sub {
-#       },
-#   );
+
+        #       $self->{menu}->Append( -1, $subgroup{label} );
+        #       $self->{menu}->AppendSeparator();
+        #       my $subgroup_value = $subgroup{value};
+        #       foreach my $name (keys %subgroup_value) {
+        #           my $menu_item = $self->{menu}->Append( -1, $subgroup_value{$name} );
+        #           $self->{menu}->AppendSeparator();
+        #       }
+    }
+
+    #   Wx::Event::EVT_MENU(
+    #       $self,
+    #       $self->{menu},
+    #       sub {
+    #       },
+    #   );
 
     # Matching radio button
@@ -176 +178 @@
         $self, -1, Wx::gettext('Matching'),
     );
-    
+
     # Substitution radio button
     $self->{substituting} = Wx::RadioButton->new(
@@ -204 +206 @@
     my $regex = Wx::BoxSizer->new(Wx::wxVERTICAL);
     $regex->Add(
-        $self->{regex}, 
-        1, 
-        Wx::wxALL | Wx::wxALIGN_CENTER_HORIZONTAL | Wx::wxEXPAND, 
+        $self->{regex},
+        1,
+        Wx::wxALL | Wx::wxALIGN_CENTER_HORIZONTAL | Wx::wxEXPAND,
         1
     );
 
     my $regex_groups = Wx::BoxSizer->new(Wx::wxVERTICAL);
-    foreach my $code (keys %regex_groups) {
+    foreach my $code ( keys %regex_groups ) {
         $regex_groups->Add( $self->{$code}, 0, Wx::wxEXPAND | Wx::wxALIGN_CENTER_HORIZONTAL, 1 );
     }
-    
+
     my $combined = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
-    $combined->Add( $regex, 2, Wx::wxALL | Wx::wxEXPAND, 0 );
+    $combined->Add( $regex,        2, Wx::wxALL | Wx::wxEXPAND, 0 );
     $combined->Add( $regex_groups, 0, Wx::wxALL | Wx::wxEXPAND, 0 );
 
     # Vertical layout of the left hand side
     my $left = Wx::BoxSizer->new(Wx::wxVERTICAL);
-    $left->Add( $operation,   0, Wx::wxALL | Wx::wxEXPAND, 2 );
-    $left->Add( $modifiers,   0, Wx::wxALL | Wx::wxEXPAND, 2 );
+    $left->Add( $operation, 0, Wx::wxALL | Wx::wxEXPAND, 2 );
+    $left->Add( $modifiers, 0, Wx::wxALL | Wx::wxEXPAND, 2 );
     $left->AddSpacer(5);
-    $left->Add( $regex_label, 0, Wx::wxALL | Wx::wxEXPAND, 1 ); 
-    $left->Add( $combined,   0, Wx::wxALL | Wx::wxEXPAND, 2 );
-    
+    $left->Add( $regex_label, 0, Wx::wxALL | Wx::wxEXPAND, 1 );
+    $left->Add( $combined,    0, Wx::wxALL | Wx::wxEXPAND, 2 );
+
     $left->Add( $substitute_label, 0, Wx::wxALL | Wx::wxEXPAND, 1 );
     $left->Add(