(run_treeview_dialog) introduce get_icon() in order to extract group icon

1 files changed, 6 insertions, 0 deletions

diff --git a/rpmdrake b/rpmdrake
index 4865fd44..d3358c96 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -702,6 +702,12 @@ sub run_treeview_dialog {
         @to_remove;
     };
     $options = {
+	get_icon => sub {
+         my ($group) = @_;
+         my $pixbuf;
+         eval { $pixbuf = gtkcreate_pixbuf($group_icons{$group}) };
+         $pixbuf ||= gtkcreate_pixbuf('applications_section');
+     },
 	node_state => sub {
 	    $_[0] ? ($pkgs->{$_[0]}{selected} ? 'selected' : $pkgs->{$_[0]}{pkg}->flag_base ? '/usr/share/rpmdrake/icons/base.png' : 'unselected') : 'XXX';
 	},  #- checks $_[0] -> hack for partial tree displaying