From 187adf95efa342c5b70306087fa039fc13338010 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 17 Jul 2003 16:50:31 +0000
Subject: intercept buggy callees/users of bool type that wrongly pass label
 instead of text

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

(limited to 'perl-install/interactive/gtk.pm')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index adfc66ac7..b202cf2e4 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -411,6 +411,7 @@ sub ask_fromW {
 	    if ($e->{image}) {
 		$w = gtkadd(Gtk2::CheckButton->new, gtkshow(gtkcreate_img($e->{image})));
 	    } else {
+		warn "\"text\" member should have been used instead of \"label\" one at:\n", common::backtrace(), "\n" if $e->{label};
 		$w = Gtk2::CheckButton->new($e->{text});
 	    }
 	    $w->signal_connect(clicked => $changed);
-- 
cgit v1.2.1