Changeset 5836

Timestamp:

07/04/09 21:27:14 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Search freely in Perl 6 Help. No more * and ?.
[Perl 6] Improved the captions a bit to be more user friendly

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm (modified) (3 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm

@@ -143 +143 @@
     # search textbox
     my $search_label = Wx::StaticText->new( $self, -1, 
-        Wx::gettext('&Select an item to open (? = any character, * = any string):') );
+        Wx::gettext('&Type a help topic to read:') );
     $self->_search_text( Wx::TextCtrl->new( $self, -1, '' ) );
     
     # matches result list
     my $matches_label = Wx::StaticText->new( $self, -1, 
-        Wx::gettext('&Matching Items:') );
+        Wx::gettext('&Matching Help Topics:') );
     $self->_list( Wx::ListBox->new( $self, -1, [-1, -1], [400, 300], [], 
         Wx::wxLB_SINGLE ) );
@@ -221 +221 @@
 
     my $search_expr = $self->_search_text->GetValue();
-
-    #quote the search string to make it safer
-    #and then tranform * and ? into .* and .
     $search_expr = quotemeta $search_expr;
-    $search_expr =~ s/\\\*/.*?/g;
-    $search_expr =~ s/\\\?/./g;
 
     #Populate the list box now
@@ -232 +227 @@
     my $pos = 0;
     foreach my $target (@{$self->_targets_index}) {
-        if($target =~ /^$search_expr/i) {
+        if($target =~ /$search_expr/i) {
             $self->_list->Insert($target, $pos, $target);
             $pos++;