(is_a_package) introduce it it order to know whether a leaf is a package or a group

1 files changed, 4 insertions, 0 deletions

diff --git a/rpmdrake b/rpmdrake
index 1e1d75b6..504d85b6 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -702,6 +702,10 @@ sub run_treeview_dialog {
         @to_remove;
     };
     $options = {
+	is_a_package => sub {
+         my ($pkg) = @_;
+         return exists $pkgs->{$pkg};
+     },
 	get_icon => sub {
          my ($group, $parent) = @_;
          my $pixbuf;