From f0e226d2ee9b2a3b2cf122d4be445f9920fef59e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Aug 2003 14:08:18 +0000 Subject: remove stock icons (per IHM team request) --- perl-install/standalone/drakperm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'perl-install/standalone/drakperm') 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")); -- cgit v1.2.1