allow resizing the log window with a resizer

git-svn-id: svn://tug.org/texlive/trunk@16631 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 15 insertions, 5 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index df7d90c7682..cdf7a53c1fa 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -18,6 +18,7 @@ use strict;
 
 use Tk;
 use Tk::Dialog;
+use Tk::Adjuster;
 use Tk::BrowseEntry;
 use Tk::ROText;
 use Tk::HList;
@@ -213,7 +214,10 @@ sub build_initial_gui {
 sub do_rest_of_gui {
   # This needs to come first as we call update_grid rather early
   #my $list_frame = $mw->Labelframe(-text => "Packages");
-  my $list_frame = $mw->Frame;
+  my $gf = $mw->Frame;
+
+  #my $list_frame = $mw->Frame;
+  my $list_frame = $gf->Frame;
   $g = $list_frame->Scrolled('HList', -scrollbars => "se", -bd => 0,
         -command => \&show_extended_info, # does not work, double click!
         -columns => 5, -header => 1,
@@ -230,7 +234,8 @@ sub do_rest_of_gui {
   $loaded_button->pack(-anchor => 'e', -padx => 0, -pady => 0, 
     -ipadx => 0, -ipady => 0);
 
-  my $top_frame = $mw->Labelframe(-text => __("Display configuration"));
+  #my $top_frame = $mw->Labelframe(-text => __("Display configuration"));
+  my $top_frame = $gf->Labelframe(-text => __("Display configuration"));
 
   my $filter_frame = $top_frame->Frame();
   $filter_frame->pack;
@@ -322,7 +327,8 @@ $g->headerCreate(4, @htype, -itemtype => 'text', -text => __("Short description"
   $g->columnWidth(2, -char => 20);
   $g->columnWidth(3, -char => 20);
 
-  my $bot_frame = $mw->Frame;
+  my $bot_frame = $gf->Frame;
+  #my $bot_frame = $mw->Frame;
 
   my $actions_frame = $bot_frame->Frame;
   $actions_frame->pack();
@@ -359,11 +365,15 @@ $g->headerCreate(4, @htype, -itemtype => 'text', -text => __("Short description"
                           -command => sub { backup_selected_packages(); }
     )->pack(@left, @p_ii);
 
-
-
   $top_frame->pack(-fill => 'x', -padx => '2m');
   $bot_frame->pack(-fill => 'x', @p_ii, -side => 'bottom');
   $list_frame->pack(@x_xy, @p_ii);
+
+  $mw->Adjuster(-widget => $::progressw, -side => 'bottom')
+    ->pack(-side => 'bottom', -fill => 'x');
+
+  $gf->pack(-side => 'top', -fill => 'both', -expand => 1);
+
 }
 
 ########### LOGGING ETC FUNCTIONS #############