From c4a44f0ec9c982776afa60a509539a8007dd9d2a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Jan 2003 13:56:24 +0000 Subject: replace some "Ok" with "Next ->" --- perl-install/Xconfig/main.pm | 2 +- perl-install/install_steps_gtk.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm index 546ae6e64..9dfcbc304 100644 --- a/perl-install/Xconfig/main.pm +++ b/perl-install/Xconfig/main.pm @@ -120,7 +120,7 @@ sub configure_chooser_raw { Xconfig::various::various($in, $X->{card}, $options); $X->{various} = 'done'; } }, - { val => $::isInstall ? N("Ok") : N("Quit"), icon => "exit", clicked_may_quit => sub { 1 } }, + { val => $::isInstall ? N("Next ->") : N("Quit"), icon => "exit", clicked_may_quit => sub { 1 } }, ]); $ok, $modified; } diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index a7e36f7ed..583fb8a47 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -242,7 +242,7 @@ sub reallyChooseGroups { $check->signal_connect(clicked => sub { $$individual = $check->get_active }); $check; }), - gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { Gtk2->main_quit }), + gtksignal_connect(Gtk2::Button->new(N("Next ->")), clicked => sub { Gtk2->main_quit }), ), ), ); -- cgit v1.2.1