summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-11-28 18:31:17 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-11-28 18:31:17 +0000
commite8cf0bd4d0a6f3aa337c050cc24218cb06b1b863 (patch)
treebbd155ff2852bd6d0790627ae70b47efc1454dbc /perl-install
parentd4e1d3fbd0ecf61f4f4d122e4fd250d8c5904f01 (diff)
downloaddrakx-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar
drakx-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar.gz
drakx-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar.bz2
drakx-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.tar.xz
drakx-e8cf0bd4d0a6f3aa337c050cc24218cb06b1b863.zip
no important changement!
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup16
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()});