summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-14 20:38:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-14 20:38:20 +0000
commit036bfccc67f49edf02b6fdb0153036ebe0353989 (patch)
tree00df0a2e9f29f5df3b7ebc23c24d8ef6c9584b42
parente0bd63cd28ef5be6e525064ffcefb414760550ca (diff)
downloaddrakx-036bfccc67f49edf02b6fdb0153036ebe0353989.tar
drakx-036bfccc67f49edf02b6fdb0153036ebe0353989.tar.gz
drakx-036bfccc67f49edf02b6fdb0153036ebe0353989.tar.bz2
drakx-036bfccc67f49edf02b6fdb0153036ebe0353989.tar.xz
drakx-036bfccc67f49edf02b6fdb0153036ebe0353989.zip
(ctree_set_icon): new function
-rw-r--r--perl-install/my_gtk.pm7
1 files changed, 7 insertions, 0 deletions
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;