diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-21 19:06:59 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-01-21 19:06:59 +0000 |
| commit | c6bc8f453e3cfd7f1a4cfe920c5db10989804118 (patch) | |
| tree | c8c2f78774931d7ae4db090cb1937724655e3305 /perl-install | |
| parent | 95f9995e3a8183f7221db4b79746e67b26247950 (diff) | |
| download | drakx-c6bc8f453e3cfd7f1a4cfe920c5db10989804118.tar drakx-c6bc8f453e3cfd7f1a4cfe920c5db10989804118.tar.gz drakx-c6bc8f453e3cfd7f1a4cfe920c5db10989804118.tar.bz2 drakx-c6bc8f453e3cfd7f1a4cfe920c5db10989804118.tar.xz drakx-c6bc8f453e3cfd7f1a4cfe920c5db10989804118.zip | |
perl-GTK2 0.0.cvs.2003.01.21.1 should fix set_active(undef) misbehaviour
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') { |