From 3c29a1f97b55d63192559580f04087dfb3139517 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Wed, 28 Jul 2004 11:10:13 +0000 Subject: Fix crashes on append_set. --- perl-install/standalone/drakTermServ | 8 ++++---- 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(); -- cgit v1.2.1