use Next > in wizard string, so translations can distinguish (from Norbert)

git-svn-id: svn://tug.org/texlive/trunk@14710 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 8 insertions, 8 deletions

diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index 860b12af5a5..3d7d93d1bdc 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -139,8 +139,8 @@ sub run_menu_wizard {
 
   $can = $mw->Button(-width => 10, -relief => "ridge", -text => __('Cancel'),
                -command => sub { $return = $MENU_ABORT; $mw->destroy; });
-  $nxt = $mw->Button(-width => 10, -relief => "ridge", -text => __('Next') . ' >');
-  $prv = $mw->Button(-width => 10, -relief => "ridge", -text => '< ' . __('Back'));
+  $nxt = $mw->Button(-width => 10, -relief => "ridge", -text => __('Next >'));
+  $prv = $mw->Button(-width => 10, -relief => "ridge", -text => __('< Back'));
 
   $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw");
 
@@ -164,7 +164,7 @@ sub reset_start {
   my $inf = $fmain->Label(-text => __("Welcome to the installation of TeX Live 2009\nhttp://tug.org/texlive\n\nThis wizard will guide you through the installation.\n\nFor an advanced, customizable installation, please consult\nthe web pages or installation guide."), -justify => "left");
   $inf->place(-x => 0, -y => 100);
 
-  $nxt->configure(-text => __("Next") . ' >', -command => \&ask_path );
+  $nxt->configure(-text => __("Next >") , -command => \&ask_path );
   $nxt->configure(-state => "normal");
 }
 
@@ -225,8 +225,8 @@ sub ask_path {
                 -justify => "left"
              )->place(-x => 0, -y => $fmain->height, -anchor => "sw");
 
-  $prv->configure(-text => '< ' . __('Back'), -command => \&reset_start );
-  $nxt->configure(-text => __('Next') . ' >', -command => \&ask_options );
+  $prv->configure(-text => __('< Back'), -command => \&reset_start );
+  $nxt->configure(-text => __('Next >'), -command => \&ask_options );
 
   my $rb = $MWIDTH - $RIGHT;
   $rb -= $nxt->width;
@@ -347,8 +347,8 @@ sub ask_options {
     }
   }
 
-  $prv->configure(-text => '< ' . __('Back'), -command => \&ask_path );
-  $nxt->configure(-text => __('Next') . ' >', -command => \&ask_go );
+  $prv->configure(-text => __('< Back'), -command => \&ask_path );
+  $nxt->configure(-text => __('Next >'), -command => \&ask_go );
 
   my $rb = $MWIDTH - $RIGHT;
   $rb -= $nxt->width;
@@ -371,7 +371,7 @@ sub ask_go {
   
   $nxt->configure(-text => __('Install'), 
                   -command => \&wizard_installation_window);
-  $prv->configure(-text => '< ' .  __('Back'), -command => \&ask_path);
+  $prv->configure(-text => __('< Back'), -command => \&ask_path);
 }
 
 sub wizard_installation_window {