Changeset 5841

Timestamp:

07/05/09 00:53:00 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Perl 6 Help Powered by App::Grok with Auto Preview pane :)

File:

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

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

@@ -16 +16 @@
 # accessors
 use Class::XSAccessor accessors => {
-    _sizer             => '_sizer',              # window sizer
+    _hbox              => '_hbox',               # horizontal box sizer
+    _vbox              => '_vbox',               # vertical box sizer
     _search_text       => '_search_text',        # search text control
     _list              => '_list',               # matches list
     _targets_index     => '_targets_index',      # targets index
+    _help_viewer       => '_help_viewer',        # HTML Help Viewer
     _plugin            => '_plugin',             # plugin object
 };
@@ -33 +35 @@
         $main,
         -1,
-        Wx::gettext('Perl 6 Help'),
+        Wx::gettext('Perl 6 Help (Powered by App::Grok)'),
         Wx::wxDefaultPosition,
         Wx::wxDefaultSize,
@@ -54 +56 @@
 
 #
-# handler called when the ok button has been clicked.
-# 
-sub _on_ok_button_clicked {
-    my ($self) = @_;
-
-    my $main = $self->_plugin->main;
-
-    #Open the selected resources here if the user pressed OK
+# Fetches the current selection's help HTML via App::Grok
+#
+sub display_help_in_viewer {
+    my $self = shift;
+
     my $selection = $self->_list->GetSelection();
     my $help_target = $self->_list->GetClientData($selection);
+    my $help_html;
     if($help_target) {
         require App::Grok;
-        my $grok = App::Grok->new;
-        my $grok_text = $grok->render_target($help_target,'xhtml');
-        if($grok_text) {
-            my $tmp = File::Temp->new(SUFFIX => '.html');
-            $tmp->unlink_on_destroy(0);
-            my $filename = $tmp->filename;
-            print $tmp $grok_text;
-            close $tmp
-                or warn "Could not close $filename";
-
-            # launch the HTML file in your default browser
-            require URI::file;
-            my $file_url = URI::file->new($filename);
-            Wx::LaunchDefaultBrowser($file_url);
-
-        } else {
-            Wx::MessageBox(
-                Wx::gettext('Topic not found!'),
-                Wx::gettext('Perl 6 Help'),
-                Wx::wxOK,
-                $main,
-            );
-        }
-    }
-    $self->Destroy;
-}
-
+        eval {
+            my $grok = App::Grok->new;
+            $help_html = $grok->render_target($help_target,'xhtml');
+        };
+    }
+    
+    if(not $help_html) {
+        $help_html = '<b>No Help found</b>';
+    }
+    
+    $self->_help_viewer->SetPage($help_html);
+
+    return;
+}
 
 # -- private methods
@@ -100 +87 @@
 #
 sub _create {
-    my ($self) = @_;
+    my $self = shift;
 
     # create sizer that will host all controls
-    my $sizer = Wx::BoxSizer->new( Wx::wxVERTICAL );
-    $self->_sizer($sizer);
+    $self->_hbox( Wx::BoxSizer->new( Wx::wxHORIZONTAL ) );
+    $self->_vbox( Wx::BoxSizer->new( Wx::wxVERTICAL ) );
 
     # create the controls
@@ -110 +97 @@
     $self->_create_buttons;
 
-    # wrap everything in a vbox to add some padding
-    $self->SetSizerAndFit($sizer);
-    $sizer->SetSizeHints($self);
+    # wrap everything in a box to add some padding
+    $self->SetSizerAndFit($self->_hbox);
+    $self->_hbox->SetSizeHints($self);
 
     # center the dialog
@@ -127 +114 @@
 #
 sub _create_buttons {
-    my ($self) = @_;
-    my $sizer  = $self->_sizer;
+    my $self = shift;
 
     my $butsizer = $self->CreateStdDialogButtonSizer(Wx::wxOK|Wx::wxCANCEL);
-    $sizer->Add($butsizer, 0, Wx::wxALL|Wx::wxEXPAND|Wx::wxALIGN_CENTER, 5 );
+    $self->_vbox->Add($butsizer, 0, Wx::wxALL|Wx::wxEXPAND|Wx::wxALIGN_CENTER, 5 );
     Wx::Event::EVT_BUTTON( $self, Wx::wxID_OK, \&_on_ok_button_clicked );
 }
@@ -139 +125 @@
 #
 sub _create_controls {
-    my ($self) = @_;
+    my $self = shift;
 
     # search textbox
@@ -149 +135 @@
     my $matches_label = Wx::StaticText->new( $self, -1, 
         Wx::gettext('&Matching Help Topics:') );
-    $self->_list( Wx::ListBox->new( $self, -1, [-1, -1], [400, 300], [], 
+    $self->_list( Wx::ListBox->new( $self, -1, [-1, -1], [200, 300], [], 
         Wx::wxLB_SINGLE ) );
-
-    $self->_sizer->AddSpacer(10);
-    $self->_sizer->Add( $search_label, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
-    $self->_sizer->Add( $self->_search_text, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
-    $self->_sizer->Add( $matches_label, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
-    $self->_sizer->Add( $self->_list, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
+        
+    # HTML Help Viewer
+    require Padre::Wx::HtmlWindow;
+    $self->_help_viewer( Padre::Wx::HtmlWindow->new($self, -1, [-1,-1], [350, 300] ) );
+    $self->_help_viewer->SetPage('');
+
+    
+    $self->_vbox->AddSpacer(10);
+    $self->_vbox->Add( $search_label, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
+    $self->_vbox->Add( $self->_search_text, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
+    $self->_vbox->Add( $matches_label, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
+    $self->_vbox->Add( $self->_list, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
+    $self->_hbox->Add( $self->_vbox, 0, Wx::wxALL|Wx::wxEXPAND, 2 );
+    $self->_hbox->Add( $self->_help_viewer, 0, Wx::wxALL|Wx::wxEXPAND, 0 );
 
     $self->_setup_events();
@@ -188 +182 @@
     });
     
-    Wx::Event::EVT_LISTBOX_DCLICK( $self, $self->_list, sub {
-        $self->_on_ok_button_clicked();
-        $self->EndModal(0);
+    Wx::Event::EVT_LISTBOX( $self, $self->_list, sub {
+        $self->display_help_in_viewer;
     });
+    
 }
 
@@ -234 +228 @@
     if($pos > 0) {
         $self->_list->Select(0);
+        $self->display_help_in_viewer;
     }