diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/ui.pm | bin | 9649 -> 9573 bytes | |||
| -rw-r--r-- | perl-install/ugtk.pm | 8 |
2 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm Binary files differindex 57624e142..466852751 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm 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) = @_; |