diff options
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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; |