diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-14 20:38:20 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-14 20:38:20 +0000 |
| commit | 036bfccc67f49edf02b6fdb0153036ebe0353989 (patch) | |
| tree | 00df0a2e9f29f5df3b7ebc23c24d8ef6c9584b42 | |
| parent | e0bd63cd28ef5be6e525064ffcefb414760550ca (diff) | |
| download | drakx-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.pm | 7 |
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; |