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/interactive/gtk.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/interactive') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 3118e1d30..fb71a595f 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -479,7 +479,7 @@ sub ask_fromW { %buttons = map { my $action = $_; - $action => gtksignal_connect(Gtk2::Button->new_from_stock(translate($action)), + $action => gtksignal_connect(Gtk2::Button->new(translate($action)), clicked => sub { $do_action->($action) }); } @actions; $real_w = gtkpack_(Gtk2::HBox->new(0,0), @@ -644,7 +644,7 @@ sub ask_fromW { 1, $create_widgets->($advanced_total_size, @widgets_advanced)); my @help = if_($common->{interactive_help}, - [ 'gtk-help', sub { + [ N("Help"), sub { my $message = $common->{interactive_help}->() or return; $o->ask_warn(N("Help"), $message); }, 1 ]); @@ -754,11 +754,11 @@ sub kill { } sub ok { - 'gtk-ok' + N("Ok"); } sub cancel { - 'gtk-cancel' + N("Cancel"); } 1; -- cgit v1.2.1