diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 | ||||
| -rw-r--r-- | 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') { |