summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/ui.pmbin9649 -> 9573 bytes
-rw-r--r--perl-install/ugtk.pm8
2 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 57624e142..466852751 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
Binary files differ
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) = @_;