diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-11-28 17:42:26 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-11-28 17:42:26 +0000 |
| commit | 8c95968b354119af7d67ecc678a4a75897b3a46b (patch) | |
| tree | cba13ff07d4819e9a11fad686d8dc7a501551025 /perl-install | |
| parent | 4b9f2b39f416a63a7a149397f525ddfb1e88cec0 (diff) | |
| download | drakx-8c95968b354119af7d67ecc678a4a75897b3a46b.tar drakx-8c95968b354119af7d67ecc678a4a75897b3a46b.tar.gz drakx-8c95968b354119af7d67ecc678a4a75897b3a46b.tar.bz2 drakx-8c95968b354119af7d67ecc678a4a75897b3a46b.tar.xz drakx-8c95968b354119af7d67ecc678a4a75897b3a46b.zip | |
clean code
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index f14f03d29..6d31042de 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -195,7 +195,6 @@ sub read_conf_file { if ($mdk_cc) { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode(); } else { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode_my(); } - sub backend_mod { } @@ -447,9 +446,6 @@ sub advanced { 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0), map { my $b = new Gtk::CheckButton("$_"); $check_what_user{$_} = $b; -# if(member($_, @user_list )) { -# $check_what_user{$_}->set_active(1); -# } else { $check_what_user{$_}->set_active(0);} $b } (@all_user_list) ), ), @@ -614,22 +610,15 @@ sub advanced { bottom => "left", left => "top" ); -# my @checked_user_list; # print $check_what_user{'seb'}->active."\n"; -# @user_list = (); -# foreach (@all_user_list) { -# gtksignal_connect(gtkset_active($check_what_user{$_},$check_what_user{$_}), toggled => sub { $check_what_user{$_} = $check_what_user{$_} ? 0 : 1; }); + 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; -# } - + } -# foreach (@user_list) { -# gtkset_active($check_what_user{$_}, $check_what_user{$_}->active), -# # gtksignal_connect(gtkset_active($check_what_user{$_},$check_what_user{$_}), toggled => sub { $check_what_user{$_} = $check_what_user{$_} ? 0 : 1; }) -# } $combo_where_net_proto->entry->signal_connect( 'changed', sub { $net_proto = $combo_where_net_proto->entry->get_text()}); |