diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-11-28 18:31:17 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-11-28 18:31:17 +0000 |
| commit | e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863 (patch) | |
| tree | bbd155ff2852bd6d0790627ae70b47efc1454dbc /perl-install | |
| parent | d4e1d3fbd0ecf61f4f4d122e4fd250d8c5904f01 (diff) | |
| download | drakx-backup-do-not-use-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar drakx-backup-do-not-use-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar.gz drakx-backup-do-not-use-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar.bz2 drakx-backup-do-not-use-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar.xz drakx-backup-do-not-use-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.zip | |
no important changement!
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index c91fb5ca9..3bdacbabd 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -447,7 +447,9 @@ sub advanced { 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->signal_connect(toggled => sub { invbool \$check_what_user{$name}[1] }); + $b->signal_connect(toggled => sub { #print "__".$name . "\n" +}); $b } (@all_user_list) ), ), @@ -614,11 +616,15 @@ sub advanced { ); # print $check_what_user{'seb'}->active."\n"; + @user_list = ("toto", "titi"); + print $_."\n" foreach @user_list; - foreach (@all_user_list) { - $check_what_user{$_}[1] = 1; - $check_what_user{$_}[0]->set_active(1); - } + foreach (@all_user_list) { + if (member($_, @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()}); |