diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-15 17:01:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-15 17:01:28 +0000 |
| commit | bc17d25e2512522de0e7bc0dda18ec49d1021fd5 (patch) | |
| tree | 2a2ef206dd2453827e14f8fb568227944daf0af8 /perl-install/interactive/gtk.pm | |
| parent | cf38b5b6fc6b667f10b405a41952b790cd761b88 (diff) | |
| download | drakx-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar drakx-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar.gz drakx-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar.bz2 drakx-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar.xz drakx-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.zip | |
change packing for the widgets given
Diffstat (limited to 'perl-install/interactive/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 0457991d4..c55a5f41c 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -724,18 +724,15 @@ sub wait_messageW { my ($_o, $title, $messages) = @_; my $to_modify; - my @l = map { ref $_ ? $_ : ($to_modify = Gtk2::Label->new(scalar warp_text($_))) } @$messages; + my @l = map { ref $_ ? (0, $_) : (1, $to_modify = Gtk2::Label->new(scalar warp_text($_))) } @$messages; + $l[0] = 0; #- force first one my $Window = gtknew('MagicWindow', title => $title, pop_it => !$::isInstall, modal => 1, if__($::main_window, transient_for => $::main_window), - child => - gtknew('VBox', padding => 4, border_width => 10, children => [ - 0, $l[0], - map { (1, $_) } @l[1..$#l], - ]) + child => gtknew('VBox', padding => 4, border_width => 10, children => \@l), ); $Window->signal_connect(expose_event => sub { $Window->{displayed} = 1; 0 }); $Window->{wait_messageW} = $to_modify; |