diff options
author | Stew Benedict <stewb@mandriva.org> | 2004-07-28 11:10:13 +0000 |
---|---|---|
committer | Stew Benedict <stewb@mandriva.org> | 2004-07-28 11:10:13 +0000 |
commit | 3c29a1f97b55d63192559580f04087dfb3139517 (patch) | |
tree | 54471bf7ef187f5a1c073468c7de495be4fdc9da /perl-install | |
parent | a93c6d9af9e7b5ad2bce9f4bb729c753bcfbaf06 (diff) | |
download | drakx-3c29a1f97b55d63192559580f04087dfb3139517.tar drakx-3c29a1f97b55d63192559580f04087dfb3139517.tar.gz drakx-3c29a1f97b55d63192559580f04087dfb3139517.tar.bz2 drakx-3c29a1f97b55d63192559580f04087dfb3139517.tar.xz drakx-3c29a1f97b55d63192559580f04087dfb3139517.zip |
Fix crashes on append_set.
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakTermServ | 8 | ||||
-rwxr-xr-x | perl-install/standalone/drakbackup | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index c97193c03..9cdb728fe 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -797,7 +797,7 @@ sub make_nbi() { sub update_list { my ($list_model) = @_; $list_model->clear; - $list_model->append_set(undef, $_) foreach grep { /\.nbi/ } all($tftpboot); + $list_model->append_set(0, $_) foreach grep { /\.nbi/ } all($tftpboot); } sub build_n_update { @@ -828,7 +828,7 @@ sub maintain_users() { foreach (@sys_users) { my ($s_label) = split(/:/, $_, 2); if (any { /$s_label/ } @homes) { - $list_model->append_set(undef, $s_label); + $list_model->append_set(0, $s_label); } } @@ -849,7 +849,7 @@ sub maintain_users() { my ($t_label) = split(/:/, $_, 2); my @system_entry = grep { /$t_label/ } @sys_users; $t_label = $t_label . " !!!" if $_ ne $system_entry[0]; - $list_model->append_set(undef, $t_label); + $list_model->append_set(0, $t_label); } $list_ts_users->get_selection->signal_connect(changed => sub { @@ -870,7 +870,7 @@ sub maintain_users() { gtksignal_connect(new Gtk2::Button(N("Add User -->")), clicked => sub { my $result = adduser(0, $sys_user); if ($result == 0) { - $list_model->append_set(undef, $sys_user); + $list_model->append_set(0, $sys_user); } }), gtksignal_connect(new Gtk2::Button(N("<-- Del User")), clicked => diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 67140d644..4e31e2bb1 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -1358,7 +1358,7 @@ sub filedialog_generic { my $file_name = $file_dialog->get_filename; if (!member($file_name, @other_files)) { push(@other_files, $file_name); - $list_model->append_set(undef, $file_name); + $list_model->append_set(0, $file_name); } } $file_dialog->destroy; @@ -1494,7 +1494,7 @@ sub advanced_what_other() { $list_others->set_headers_visible(0); foreach (@other_files) { - $list_model->append_set(undef, $_); + $list_model->append_set(0, $_); } $list_others->get_selection->signal_connect(changed => sub { @@ -3340,7 +3340,7 @@ sub catalog_restore { foreach (@contents) { chop; my $s = $_; - $lmodel->append_set(undef, $s); + $lmodel->append_set(0, $s); } } gtkset_mousecursor_normal(); |