From 7cdb2beca36b7b685ee6acbadb910950ef40b7e3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 12 Aug 2002 11:12:33 +0000
Subject: tree_set_icon: new function

---
 perl-install/harddrake/ui.pm | Bin 9649 -> 9573 bytes
 perl-install/ugtk.pm         |   8 ++++++++
 2 files changed, 8 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 57624e142..466852751 100644
Binary files a/perl-install/harddrake/ui.pm and b/perl-install/harddrake/ui.pm differ
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index cc4b96e91..f942ff2b7 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -394,6 +394,14 @@ sub add2notebook {
 }
 
 
+sub tree_set_icon {
+    my ($node, $label, $icon) = @_;
+    my $hbox = new Gtk::HBox(0,0);
+    gtkpack__(1, $hbox, gtkshow(gtkpng($icon)), gtkshow(new Gtk::Label($label)));
+    gtkadd($node, gtkshow($hbox));
+}
+
+
 sub ctree_set_icon {
     my ($tree, $node, $icon_pixmap, $icon_mask) = @_;
 
-- 
cgit v1.2.1