From 69039a4aa19419b71f0920f5d628257eb1170158 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Fri, 26 Aug 2005 22:35:47 +0000 Subject: add icon in user, share, printer notebook --- perl-install/standalone/draksambashare | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'perl-install') 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); -- cgit v1.2.1