remove stock icons (per IHM team request)

1 files changed, 10 insertions, 10 deletions

diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index cd3af7a43..0347cc9ce 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -127,16 +127,16 @@ Select permissions to see/edit", $default_perm_level)),
                                     0, my $up_down_box = gtkadd(Gtk2::HBox->new(0, 5), @buttons =
                                                                 map {
                                                                     gtkset_tip($tips, 
-                                                                               gtksignal_connect(Gtk2::Button->new_from_stock($_->[0]), clicked => $_->[2]),
+                                                                               gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[2]),
                                                                                $_->[1]);
-                                                                } ([ 'gtk-go-up', N("Move selected rule up one level"), \&up_callback ], 
-                                                                   [ 'gtk-go-down', N("Move selected rule down one level"), \&down_callback ], 
-                                                                   [ 'gtk-add', N("Add a new rule at the end"), \&add_callback ],
-                                                                   [ 'gtk-remove', N("Delete selected rule"), \&del_callback ], 
-                                                                   [ 'gtk-preferences', N("Edit current rule"), \&edit_callback ])),
+                                                                } ([ N("Up"), N("Move selected rule up one level"), \&up_callback ], 
+                                                                   [ N("Down"), N("Move selected rule down one level"), \&down_callback ], 
+                                                                   [ N("Add a rule"), N("Add a new rule at the end"), \&add_callback ],
+                                                                   [ N("Delete"), N("Delete selected rule"), \&del_callback ], 
+                                                                   [ N("Edit"), N("Edit current rule"), \&edit_callback ])),
                                     0, gtkpack(Gtk2::HButtonBox->new,
-                                               gtksignal_connect(Gtk2::Button->new_from_stock('gtk-cancel'), clicked => sub { ugtk2->exit }),
-                                               gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), clicked => \&save_perm),
+                                               gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { ugtk2->exit }),
+                                               gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => \&save_perm),
                               )
                        )
                  )
@@ -221,8 +221,8 @@ sub row_setting_dialog {
     $dlg->set_transient_for($w->{rwindow}) unless $::isEmbedded;
     $dlg->set_modal(1);
 #    $dlg->set_resizable(0);
-    my $ok          = Gtk2::Button->new_from_stock('gtk-ok');
-    my $cancel      = Gtk2::Button->new_from_stock('gtk-cancel');
+    my $ok          = Gtk2::Button->new(N("Ok"));
+    my $cancel      = Gtk2::Button->new(N("Cancel"));
     my $browse = new Gtk2::Button(N("browse"));
     my $file        = new Gtk2::Entry;
     my $usr_check  = new Gtk2::CheckButton(N("Current user"));