summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm20
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"));