From 2ad44386c5e4c0661b02aaf651ffb4577ecdab25 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 10 Jul 2003 14:28:11 +0000
Subject: - grey instead of hide stuff in normal mode (more user friendly) - do
 not crash when no iterator when expanding tree

---
 perl-install/standalone/drakfloppy | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'perl-install/standalone/drakfloppy')

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";
 }
 
 
-- 
cgit v1.2.1