From 3fadcba17f5e950e483c301490c174737f1fe852 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Jan 2005 10:05:30 +0000
Subject: on a label, we must use ->get_text, not ->get

---
 perl-install/interactive/gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index f431e6549..a0dceff4e 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -740,7 +740,7 @@ sub wait_messageW($$$) {
 sub wait_message_nextW {
     my ($_o, $messages, $w) = @_;
     my $msg = warp_text(join "\n", @$messages);
-    return if $msg eq $w->{wait_messageW}->get; #- needed otherwise no expose_event :(
+    return if $msg eq $w->{wait_messageW}->get_text; #- needed otherwise no expose_event :(
     $w->{displayed} = 0;
     $w->{wait_messageW}->set($msg);
     $w->flush until $w->{displayed};
-- 
cgit v1.2.1