summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index f7e4e45f8..bb14e5b6e 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -119,13 +119,13 @@ 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($_->[0]), clicked => $_->[2]),
+ gtksignal_connect(Gtk2::Button->new_from_stock($_->[0]), clicked => $_->[2]),
$_->[1]);
- } ([ 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 ])),
+ } ([ '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 ])),
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),