From fac4e843dda83f064e2ff40362ce3482a4370df6 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 18 Nov 2014 22:25:06 +0100
Subject: Closed in a MultipleChanges block

---
 lib/AdminPanel/Rpmdragora/gui.pm | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

(limited to 'lib/AdminPanel')

diff --git a/lib/AdminPanel/Rpmdragora/gui.pm b/lib/AdminPanel/Rpmdragora/gui.pm
index 28e10f4..dd71b16 100644
--- a/lib/AdminPanel/Rpmdragora/gui.pm
+++ b/lib/AdminPanel/Rpmdragora/gui.pm
@@ -644,10 +644,13 @@ sub add_node {
             $table_item_list[$newTableItem->index()] = $leaf;
             $newTableItem->DISOWN();
         } else {
+# print "TODO: add_node  !is_a_package(\$leaf)\n";
             $iter = $w->{tree_model}->append_set(add_parent($w->{tree},$root, $state), [ $grp_columns{label} => $leaf ]);
             #push @{$wtree{$leaf}}, $iter;
         }
     } else {
+# print "TODO: add_node  !\$leaf\n";
+
         my $parent = add_parent($w->{tree}, $root, $state);
         #- hackery for partial displaying of trees, used in rpmdragora:
         #- if leaf is void, we may create the parent and one child (to have the [+] in front of the parent in the ctree)
@@ -879,13 +882,19 @@ sub ask_browse_tree_given_widgets_for_rpmdragora {
 	update_size($common);
     };
     $common->{add_nodes} = sub {
-	my (@nodes) = @_;
-	$w->{detail_list}->deleteAllItems();
-	#$w->{detail_list}->scroll_to_point(0, 0);
-    foreach(@nodes){
-	    add_node($_->[0], $_->[1], $_->[2]);
-    }
-	update_size($common);
+#        print "TODO ==================> ADD NODES\n";
+        my (@nodes) = @_;
+        yui::YUI::app()->busyCursor();
+
+        $w->{detail_list}->startMultipleChanges();
+        $w->{detail_list}->deleteAllItems();
+        #$w->{detail_list}->scroll_to_point(0, 0);
+        foreach(@nodes){
+            add_node($_->[0], $_->[1], $_->[2]);
+        }
+        update_size($common);
+        $w->{detail_list}->startMultipleChanges();
+        yui::YUI::app()->normalCursor();
     };
 
     $common->{display_info} = sub {
-- 
cgit v1.2.1