From 63f4f5a992731ab23a58890694177b2a55d0892e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 15 Jan 2005 12:22:41 +0000
Subject: allow passing gtk widgets to ->wait_message

---
 perl-install/interactive/gtk.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 39397d01b..8c4c3b6b4 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -723,7 +723,8 @@ sub ask_from__add_modify_removeW {
 sub wait_messageW {
     my ($_o, $title, $messages) = @_;
 
-    my @l = map { Gtk2::Label->new(scalar warp_text($_)) } @$messages;
+    my $to_modify;
+    my @l = map { ref $_ ? $_ : ($to_modify = Gtk2::Label->new(scalar warp_text($_))) } @$messages;
 
     my $Window = gtknew('MagicWindow',
 			title => $title,
@@ -737,7 +738,7 @@ sub wait_messageW {
 			  ])
 		      );
     $Window->signal_connect(expose_event => sub { $Window->{displayed} = 1; 0 });
-    $Window->{wait_messageW} = $l[-1];
+    $Window->{wait_messageW} = $to_modify;
     mygtk2::sync($Window) while !$Window->{displayed};
     $Window;
 }
-- 
cgit v1.2.1