From 036bfccc67f49edf02b6fdb0153036ebe0353989 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Feb 2002 20:38:20 +0000
Subject: (ctree_set_icon): new function

---
 perl-install/my_gtk.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 99daf325f..9d3636d03 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -576,6 +576,13 @@ sub gtkicons_labels_widget {
     gtkset_border_width($w_ret, -2); #- ok, this is very very ugly...
 }
 
+sub ctree_set_icon {
+    my ($tree, $node, $icon_pixmap, $icon_mask) = @_;
+
+    my ($text, $spacing, undef, undef, undef, undef, $isleaf, $expanded) = $tree->get_node_info($node);
+    $tree->set_node_info($node, $text, $spacing, $icon_pixmap, $icon_mask, $icon_pixmap, $icon_mask, $isleaf, $expanded);
+}
+
 sub compute_icons {
     my ($fx, $fy, $decx, $decy, $interstice, @tab) = @_;
     my $nb = $#tab;
-- 
cgit v1.2.1