summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-15 17:01:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-15 17:01:28 +0000
commitbc17d25e2512522de0e7bc0dda18ec49d1021fd5 (patch)
tree2a2ef206dd2453827e14f8fb568227944daf0af8 /perl-install/interactive/gtk.pm
parentcf38b5b6fc6b667f10b405a41952b790cd761b88 (diff)
downloaddrakx-backup-do-not-use-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar
drakx-backup-do-not-use-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar.gz
drakx-backup-do-not-use-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar.bz2
drakx-backup-do-not-use-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.tar.xz
drakx-backup-do-not-use-bc17d25e2512522de0e7bc0dda18ec49d1021fd5.zip
change packing for the widgets given
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm9
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;