Changeset 9006

Timestamp:

11/02/09 00:03:13 (2 years ago)

Author:

szabgab

Message:

add initial version of a regex editor

Location:

trunk/Padre

Files:

• Changes (modified) (1 diff)
• lib/Padre/Wx/Dialog/RegexEditor.pm (added)
• lib/Padre/Wx/Main.pm (modified) (1 diff)
• lib/Padre/Wx/Menu/Edit.pm (modified) (1 diff)

trunk/Padre/Changes

@@ -1 +1 @@
 Changes for Perl Application Development and Refactoring Environment
+
+0.50 to be released
+    - Add initial version of a regex editor. (SZABGAB)
 
 0.49 2009.11.02

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

@@ -3790 +3790 @@
 }
 
+
+=pod
+
+=head3 open_regex_editor
+
+    $main->open_regex_editor;
+
+Open Padre's regex editor. No return value.
+
+=cut
+
+sub open_regex_editor {
+    my $self = shift;
+
+    require Padre::Wx::Dialog::RegexEditor;
+    my $regex = Padre::Wx::Dialog::RegexEditor->new($self);
+    $regex->show();
+    
+    return;
+}
+
+
 =pod
 

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

@@ -644 +644 @@
     $self->AppendSeparator;
 
+    $self->add_menu_item(
+        $self,
+        name       => 'edit.regex',
+        label      => Wx::gettext('Regex editor'),
+        menu_event => sub {
+            Padre::Wx::Main::open_regex_editor(@_);
+        },
+    );
+
+    $self->AppendSeparator;
+
     $self->{show_as_number} = Wx::Menu->new;
     $self->Append(