diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-08-26 22:35:47 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-08-26 22:35:47 +0000 |
| commit | 69039a4aa19419b71f0920f5d628257eb1170158 (patch) | |
| tree | 49ca56a695b46aaf3a759118230db299cd490a2d /perl-install/standalone | |
| parent | c00d01620eefb3c453dda9fc0ba89b675642967e (diff) | |
| download | drakx-backup-do-not-use-69039a4aa19419b71f0920f5d628257eb1170158.tar drakx-backup-do-not-use-69039a4aa19419b71f0920f5d628257eb1170158.tar.gz drakx-backup-do-not-use-69039a4aa19419b71f0920f5d628257eb1170158.tar.bz2 drakx-backup-do-not-use-69039a4aa19419b71f0920f5d628257eb1170158.tar.xz drakx-backup-do-not-use-69039a4aa19419b71f0920f5d628257eb1170158.zip | |
add icon in user, share, printer notebook
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draksambashare | 17 |
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); |