summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-12 11:12:33 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-12 11:12:33 +0000
commit7cdb2beca36b7b685ee6acbadb910950ef40b7e3 (patch)
tree7fa455c8d9729a2ab6a9faae8a06310762d2b4a7 /perl-install/ugtk.pm
parentfaa0e2b88e125cb7b33db458600b7e57455360d8 (diff)
downloaddrakx-backup-do-not-use-7cdb2beca36b7b685ee6acbadb910950ef40b7e3.tar
drakx-backup-do-not-use-7cdb2beca36b7b685ee6acbadb910950ef40b7e3.tar.gz
drakx-backup-do-not-use-7cdb2beca36b7b685ee6acbadb910950ef40b7e3.tar.bz2
drakx-backup-do-not-use-7cdb2beca36b7b685ee6acbadb910950ef40b7e3.tar.xz
drakx-backup-do-not-use-7cdb2beca36b7b685ee6acbadb910950ef40b7e3.zip
tree_set_icon: new function
Diffstat (limited to 'perl-install/ugtk.pm')
-rw-r--r--perl-install/ugtk.pm8
1 files changed, 8 insertions, 0 deletions
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) = @_;