diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-11-28 17:55:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-11-28 17:55:52 +0000 |
| commit | c960270cfe2216f7c0808f049c1609255ad9398d (patch) | |
| tree | d691c288d11b81e8d6f9f3503c97f5b0edf2feed /perl-install | |
| parent | 44da2985150a6d875ddd7b9132cc692db836a76f (diff) | |
| download | drakx-backup-do-not-use-c960270cfe2216f7c0808f049c1609255ad9398d.tar drakx-backup-do-not-use-c960270cfe2216f7c0808f049c1609255ad9398d.tar.gz drakx-backup-do-not-use-c960270cfe2216f7c0808f049c1609255ad9398d.tar.bz2 drakx-backup-do-not-use-c960270cfe2216f7c0808f049c1609255ad9398d.tar.xz drakx-backup-do-not-use-c960270cfe2216f7c0808f049c1609255ad9398d.zip | |
make check_what_user works
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 12 |
1 files changed, 7 insertions, 5 deletions
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()}); |