diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-12 11:12:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-12 11:12:33 +0000 |
| commit | 7cdb2beca36b7b685ee6acbadb910950ef40b7e3 (patch) | |
| tree | 7fa455c8d9729a2ab6a9faae8a06310762d2b4a7 /perl-install/ugtk.pm | |
| parent | faa0e2b88e125cb7b33db458600b7e57455360d8 (diff) | |
| download | drakx-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.pm | 8 |
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) = @_; |