From c6bc8f453e3cfd7f1a4cfe920c5db10989804118 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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/install_steps_gtk.pm | 2 +- perl-install/interactive/gtk.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index a41fb476b..583fb8a47 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -238,7 +238,7 @@ sub reallyChooseGroups { $w_size, if_($individual, do { my $check = Gtk2::CheckButton->new(N("Individual package selection")); - $check->set_active($$individual ? 1 : 0); + $check->set_active($$individual); $check->signal_connect(clicked => sub { $$individual = $check->get_active }); $check; }), 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