prevent a dialog to have a height of several scores of thousands pixels

1 files changed, 6 insertions, 1 deletions

diff --git a/gurpmi2 b/gurpmi2
index 0d32ad62..aeff1370 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -328,7 +328,12 @@ sub do_install_3 () {
     }
     $vbox = Gtk2::VBox->new(0, 5);
     $progress_label = Gtk2::Label->new('-');
-    $vbox->pack_start($progress_label, 1, 1, 0);
+    my $sw = Gtk2::ScrolledWindow->new(undef, undef);
+    $sw->add_with_viewport($progress_label);
+    $sw->set_shadow_type('in');
+    $sw->set_policy('automatic', 'automatic');
+    $sw->set_size_request(500, 200);
+    $vbox->pack_start($sw, 1, 1, 0);
     my $quit_button = Gtk2::Button->new(but(N("_Done")));
     $quit_button->signal_connect(clicked => \&quit);
     add_button_box($vbox, $quit_button);