summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-13 11:41:53 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-13 11:41:53 +0000
commit3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2 (patch)
treefbc6900f93a37f93731d0be67b95fa5a83928564 /perl-install/interactive_gtk.pm
parent5521ae98ce86e69166df6f72126bf0c300c069f4 (diff)
downloaddrakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.gz
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.bz2
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.tar.xz
drakx-3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2.zip
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index f8623a206..49b4313ed 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -63,7 +63,7 @@ sub ask_many_from_list_refW($$$$$) {
my $nn = $n++;
my $o = Gtk::CheckButton->new($_);
$o->set_active(${$val->[$nn]});
- $o->signal_connect(clicked => sub { ${$val->[$nn]} = !${$val->[$nn]} });
+ $o->signal_connect(clicked => sub { invbool \${$val->[$nn]} });
$o;
} @$list),
$w->create_okcancel,
@@ -94,7 +94,7 @@ sub ask_from_entries_refW {
} elsif ($_->{type} eq "bool") {
my $w = Gtk::CheckButton->new($_->{text});
$w->set_active(${$_->{val}});
- my $i = $_; $w->signal_connect(clicked => sub { $ignore or ${$i->{val}} = !${$i->{val}} });
+ my $i = $_; $w->signal_connect(clicked => sub { $ignore or invbool \${$i->{val}} });
$w;
} else {
new Gtk::Entry;