Changeset 2271

Timestamp:

12/30/08 01:21:57 (3 years ago)

Author:

szabgab

Message:

move the "Lexically replace variable" out from experimental mode

File:

• trunk/Padre/lib/Padre/Wx/Menu/Perl.pm (modified) (1 diff)

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

@@ -46 +46 @@
     );
 
-    if ( Padre->ide->config->{experimental} ) {
-        Wx::Event::EVT_MENU( $main,
-            $self->Append( -1, Wx::gettext("Lexically replace variable") ),
-            sub {
-                my $doc = Padre::Documents->current;
-                return unless Params::Util::_INSTANCE($doc, 'Padre::Document::Perl');
-                my $dialog = Padre::Wx::History::TextDialog->new(
-                    $_[0],
-                    Wx::gettext("Replacement"),
-                    Wx::gettext("Replacement"),
-                    '$foo',
-                );
-                if ( $dialog->ShowModal == Wx::wxID_CANCEL ) {
-                    return;
-                }
-                my $replacement = $dialog->GetValue;
-                $dialog->Destroy;
-                return unless defined $replacement;
+    Wx::Event::EVT_MENU( $main,
+        $self->Append( -1, Wx::gettext("Lexically replace variable") ),
+        sub {
+            my $doc = Padre::Documents->current;
+            return unless Params::Util::_INSTANCE($doc, 'Padre::Document::Perl');
+            my $dialog = Padre::Wx::History::TextDialog->new(
+                $_[0],
+                Wx::gettext("Replacement"),
+                Wx::gettext("Replacement"),
+                '$foo',
+            );
+            if ( $dialog->ShowModal == Wx::wxID_CANCEL ) {
+                return;
+            }
+            my $replacement = $dialog->GetValue;
+            $dialog->Destroy;
+            return unless defined $replacement;
 
-                $doc->lexical_variable_replacement($replacement);
-            },
-        );
-    }
+            $doc->lexical_variable_replacement($replacement);
+        },
+    );
 
     return $self;