summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-wizard.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-08-16 21:55:11 +0000
committerKarl Berry <karl@freefriends.org>2009-08-16 21:55:11 +0000
commit798ac391ab600ebbf213a3c88b27193eca4213fe (patch)
tree477db7327c35f844bd5363426be3ca482a6a7b0d /Master/tlpkg/installer/install-menu-wizard.pl
parentab7ee199257870fffa176bfeb278d445bc23d968 (diff)
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
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl16
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 {