summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-10 14:28:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-10 14:28:11 +0000
commit2ad44386c5e4c0661b02aaf651ffb4577ecdab25 (patch)
tree13ca652693e6d68c397ca8788a9184fc26174f12 /perl-install/standalone/drakfloppy
parentb18871dc7138630c4d4269820c081696ae596c86 (diff)
downloaddrakx-2ad44386c5e4c0661b02aaf651ffb4577ecdab25.tar
drakx-2ad44386c5e4c0661b02aaf651ffb4577ecdab25.tar.gz
drakx-2ad44386c5e4c0661b02aaf651ffb4577ecdab25.tar.bz2
drakx-2ad44386c5e4c0661b02aaf651ffb4577ecdab25.tar.xz
drakx-2ad44386c5e4c0661b02aaf651ffb4577ecdab25.zip
- grey instead of hide stuff in normal mode (more user friendly)
- do not crash when no iterator when expanding tree
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy12
1 files changed, 3 insertions, 9 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 9d139555c..4f128d746 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -195,10 +195,10 @@ ugtk2->exit(0);
sub toggle_expert_button() {
if ($expert_mode) {
- $expert_mod_frame->show;
+ $expert_mod_frame->set_sensitive(1);
$expert_button->child->set(N("Normal Mode"));
} else {
- $expert_mod_frame->hide;
+ $expert_mod_frame->set_sensitive(0);
$expert_button->child->set(N("Expert Mode"));
}
}
@@ -244,19 +244,14 @@ sub selected_tree {
# Callback for expanding a tree - find subdirectories, files and add them to tree
sub expand_tree {
my ($tree, $parent_iter, $path) = @_;
- print "K 0\n";
my $dir = $tree_model->get($parent_iter, 1);
- print "K 1\n";
my $child = $tree_model->iter_children($parent_iter);
+ return if !$child;
#- hackish: if first child has '' as name, then we need to expand on the fly
- print "K 2 $child\n";
if ($child && $tree_model->get($child, 0) eq '') {
- print "K 3\n";
$tree_model->remove($child);
- print "K 4\n";
}
- print "K 5\n";
unless ($child && $tree_model->iter_has_child($parent_iter)) {
foreach my $dir_entry (all($dir)) {
my $entry_path = $dir . "/" . $dir_entry;
@@ -273,7 +268,6 @@ sub expand_tree {
}
}
$tree->expand_row($path, 0);
- print "K 9\n\n";
}