Changeset 5844

Timestamp:

07/05/09 01:50:20 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Perl 6 Help dialog resizes itself when the user resizes it.

File:

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

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

@@ -23 +23 @@
     _help_viewer       => '_help_viewer',        # HTML Help Viewer
     _plugin            => '_plugin',             # plugin object
+    _topic             => '_topic',              # default help topic
 };
 
@@ -43 +44 @@
     $self->SetIcon( Wx::GetWxPerlIcon() );
     $self->_plugin($plugin);
+    $self->_topic($opt{topic} // '');
 
     # create dialog
     $self->_create;
     
-    $self->_search_text->SetValue($opt{topic} // '');
-
+    # fit and center the dialog
+    $self->Fit;
+    $self->CentreOnParent;
+    
     return $self;
 }
@@ -98 +102 @@
 
     # wrap everything in a box to add some padding
-    $self->SetSizerAndFit($self->_hbox);
-    $self->_hbox->SetSizeHints($self);
-
-    # center the dialog
-    $self->Centre;
-
+    $self->SetMinSize( [ 640, 480 ] );
+    $self->SetSizer( $self->_hbox );
+    
     # focus on the search text box
     $self->_search_text->SetFocus();
     
+    $self->_search_text->SetValue( $self->_topic );
     $self->_update_list_box;
 }
@@ -134 +136 @@
     my $matches_label = Wx::StaticText->new( $self, -1, 
         Wx::gettext('&Matching Help Topics:') );
-    $self->_list( Wx::ListBox->new( $self, -1, [-1, -1], [200, 300], [], 
-        Wx::wxLB_SINGLE ) );
+    $self->_list( 
+        Wx::ListBox->new( 
+            $self, 
+            -1,
+            Wx::wxDefaultPosition,
+            Wx::wxDefaultSize, 
+            [], 
+            Wx::wxLB_SINGLE 
+        )
+    );
         
     # HTML Help Viewer
     require Padre::Wx::HtmlWindow;
-    $self->_help_viewer( Padre::Wx::HtmlWindow->new($self, -1, [-1,-1], [350, 300], Wx::wxBORDER_STATIC ) );
+    $self->_help_viewer( 
+        Padre::Wx::HtmlWindow->new(
+            $self,
+            -1, 
+            Wx::wxDefaultPosition,
+            Wx::wxDefaultSize, 
+            Wx::wxBORDER_STATIC
+        ) 
+    );
     $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->_vbox->Add( $self->_list, 1, 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->_hbox->Add( $self->_help_viewer, 1, 
+        Wx::wxALL | Wx::wxALIGN_TOP | Wx::wxALIGN_CENTER_HORIZONTAL | Wx::wxEXPAND, 1 );
 
     $self->_setup_events();