From c960270cfe2216f7c0808f049c1609255ad9398d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 28 Nov 2001 17:55:52 +0000 Subject: make check_what_user works --- perl-install/standalone/drakbackup | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 6d31042de..c91fb5ca9 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -444,8 +444,10 @@ sub advanced { 0, _("Please check all user that you want to include inb your backup."), 0, new Gtk::HSeparator, 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0), - map { my $b = new Gtk::CheckButton("$_"); - $check_what_user{$_} = $b; + map { my $name = $_; + my $b = new Gtk::CheckButton($name); + $check_what_user{$_} = [ $b, 0 ]; + $b->signal_connect(toggled => sub { invbool \$check_what_user{$name}[1] }); $b } (@all_user_list) ), ), @@ -614,11 +616,11 @@ sub advanced { # print $check_what_user{'seb'}->active."\n"; foreach (@all_user_list) { - gtksignal_connect(gtkset_active($check_what_user{$_},$check_what_user{$_}), toggled => sub { $check_what_user{$_} = $check_what_user{$_} ? 0 : 1; }); -# $check_what_user{$_}->active and push @user_list, $_; -# print $_ . "\n";# foreach @checked_user_list; + $check_what_user{$_}[1] = 1; + $check_what_user{$_}[0]->set_active(1); } + $combo_where_net_proto->entry->signal_connect( 'changed', sub { $net_proto = $combo_where_net_proto->entry->get_text()}); -- cgit v1.2.1