summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksambashare
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/draksambashare')
-rwxr-xr-xperl-install/standalone/draksambashare17
1 files changed, 14 insertions, 3 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index c6cd8817c..0317a33d8 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -1104,7 +1104,11 @@ gtkappend_page(my $nb = Gtk2::Notebook->new, gtkpack_(gtkset_border_width(Gtk2::
}),
),
),
- gtkshow(Gtk2::Label->new(N("File Share")))
+ gtkshow(gtkpack_(Gtk2::HBox->new(0,0),
+ 0, Gtk2::Image->new_from_file($fileshare_icon),
+ 0, Gtk2::Label->new(N("File share")),
+ ),
+ ),
);
gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
@@ -1139,7 +1143,11 @@ gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
}),
),
),
- gtkshow(Gtk2::Label->new(N("Printers")))
+ gtkshow(gtkpack_(Gtk2::HBox->new(0,0),
+ 0, Gtk2::Image->new_from_file($printershare_icon),
+ 0, Gtk2::Label->new(N("Printers"))
+ ),
+ ),
);
gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
@@ -1180,7 +1188,10 @@ gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0),
),
),
),
- gtkshow(Gtk2::Label->new(N("Samba Users")))
+ gtkshow(gtkpack_(Gtk2::HBox->new(0,0),
+ 0, Gtk2::Image->new_from_file($sambauser_icon),
+ 0, Gtk2::Label->new(N("Samba Users"))),
+ ),
);
$nb->set_show_border(0);