From 1a2202b2081cc2b6d54c2f12319dbe5b9e598042 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 25 Oct 2006 10:49:36 +0000 Subject: prevent a dialog to have a height of several scores of thousands pixels --- gurpmi2 | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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); -- cgit v1.2.1