filling list of packages is slow when there's a lot of package; let's warn the user

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 8b075270..7d7dd73d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -1007,7 +1007,7 @@ or you already installed all of them."));
         while ($parent = $model->iter_parent($parent)) {
             $group = join('|', $model->get($parent, 0), $group);
         }
-        $options->{add_nodes}->(@{$elems{$group}});
+        slow_func($tree->window, sub { $options->{add_nodes}->(@{$elems{$group}}) });
     });
 
     $options->{state}{splited} = 1;