From cdf1581ba191be3bcfadb935b276a560f724c6c5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 24 Jul 2003 16:40:32 +0000 Subject: use stock icons on rule toolbar --- perl-install/standalone/drakperm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/standalone') 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), -- cgit v1.2.1