From 798ac391ab600ebbf213a3c88b27193eca4213fe Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 16 Aug 2009 21:55:11 +0000 Subject: 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 --- Master/tlpkg/installer/install-menu-wizard.pl | 16 ++++++++-------- 1 file 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 { -- cgit v1.2.3