summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-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";
}