From dbcb3dde3525aac3d97d310efe0f42256dc36260 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Jan 2003 19:47:29 +0000
Subject: set_active on Gtk2::CheckButton is pretty dumb, it thinks undef is
 true ;p

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

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 33577fe7f..6ebeb5bf3 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -405,7 +405,7 @@ sub ask_fromW {
 	} elsif ($e->{type} eq 'bool') {
 	    $w = Gtk2::CheckButton->new($e->{text});
 	    $w->signal_connect(clicked => $changed);
-	    $set = sub { $w->set_active($_[0]) };
+	    $set = sub { $w->set_active($_[0] ? 1 : 0) };
 	    $get = sub { $w->get_active };
 	    $width = length $e->{text};
 	} elsif ($e->{type} eq 'label') {
-- 
cgit v1.2.1