From 9389380b227c7dcf8415d06485a1ba447be3f80a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 31 Jan 2009 12:05:28 +0000 Subject: use "Back", not "Previous" git-svn-id: svn://tug.org/texlive/trunk@12026 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-wizard.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/installer/install-menu-wizard.pl') diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl index b43653c5e2d..e586688bc24 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -294,7 +294,7 @@ sub reset_start { unpack_buttons(); $can->configure(-text => "Cancel", -command => sub { $mw->destroy; do_cleanup(); exit(1); }); - $prv->configure(-text => "Previous", -command => \&run_menu); + $prv->configure(-text => "Back", -command => \&run_menu); $nxt->configure(-text => "Next", -command => \&ask_scheme); pack_buttons("cancel", "next"); } @@ -320,7 +320,7 @@ sub ask_scheme { unpack_buttons(); $nxt->configure(-command => \&ask_path, -text => "Next"); - $prv->configure(-text => "Previous", -command => \&reset_start); + $prv->configure(-text => "Back", -command => \&reset_start); pack_buttons("cancel", "prev", "next"); } @@ -346,7 +346,7 @@ sub ask_path { unpack_buttons(); $nxt->configure(-command => \&ask_go); - $prv->configure(-text => "Previous", -command => \&ask_scheme); + $prv->configure(-text => "Back", -command => \&ask_scheme); pack_buttons("cancel", "prev", "next"); } @@ -360,7 +360,7 @@ sub ask_go { unpack_buttons(); $nxt->configure(-command => \&installation_window, -text => "Install"); - $prv->configure(-text => "Previous", -command => \&ask_path); + $prv->configure(-text => "Back", -command => \&ask_path); pack_buttons("cancel", "prev", "next"); } -- cgit v1.2.3