From c6bc8f453e3cfd7f1a4cfe920c5db10989804118 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 21 Jan 2003 19:06:59 +0000
Subject: perl-GTK2 0.0.cvs.2003.01.21.1 should fix set_active(undef)
 misbehaviour

---
 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 65d17964a..293e96ff1 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -396,7 +396,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] ? 1 : 0) };
+	    $set = sub { $w->set_active($_[0]) };
 	    $get = sub { $w->get_active };
 	    $width = length $e->{text};
 	} elsif ($e->{type} eq 'label') {
-- 
cgit v1.2.1