summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-07-28 11:10:13 +0000
committerStew Benedict <stewb@mandriva.org>2004-07-28 11:10:13 +0000
commit3c29a1f97b55d63192559580f04087dfb3139517 (patch)
tree54471bf7ef187f5a1c073468c7de495be4fdc9da /perl-install/standalone
parenta93c6d9af9e7b5ad2bce9f4bb729c753bcfbaf06 (diff)
downloaddrakx-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/standalone')
-rwxr-xr-xperl-install/standalone/drakTermServ8
-rwxr-xr-xperl-install/standalone/drakbackup6
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();