Changeset 5845

Timestamp:

07/05/09 02:30:43 (3 years ago)

Author:

azawawi

Message:

[Perl 6] More robust searching

File:

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

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

@@ -65 +65 @@
     my $self = shift;
 
+    my $help_html;
     my $selection = $self->_list->GetSelection();
-    my $help_target = $self->_list->GetClientData($selection);
-    my $help_html;
-    if($help_target) {
-        require App::Grok;
-        eval {
-            my $grok = App::Grok->new;
-            $help_html = $grok->render_target($help_target,'xhtml');
-        };
+    if($selection != -1) {
+        my $help_target = $self->_list->GetClientData($selection);
+
+        if($help_target) {
+            eval {
+                require App::Grok;
+                my $grok = App::Grok->new;
+                $help_html = $grok->render_target($help_target,'xhtml');
+            };
+        }
     }
     
@@ -212 +215 @@
     
     # Generate a sorted file-list based on filename
-    require App::Grok;
-    my $grok = App::Grok->new;
-    my @targets_index = sort $grok->target_index();
-
-    $self->_targets_index( \@targets_index ); 
+    eval {
+        require App::Grok;
+        my $grok = App::Grok->new;
+        my @targets_index = sort $grok->target_index();
+        $self->_targets_index( \@targets_index ); 
+    };
     
     return;
@@ -245 +249 @@
     if($pos > 0) {
         $self->_list->Select(0);
-        $self->display_help_in_viewer;
-    }
+    }
+    $self->display_help_in_viewer;
             
     return;