diff options
| -rw-r--r-- | Master/tlpkg/installer/install-menu-wizard.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl index e586688bc24..b391e8356ea 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -294,8 +294,8 @@ sub reset_start { unpack_buttons(); $can->configure(-text => "Cancel", -command => sub { $mw->destroy; do_cleanup(); exit(1); }); - $prv->configure(-text => "Back", -command => \&run_menu); - $nxt->configure(-text => "Next", -command => \&ask_scheme); + $prv->configure(-text => "< Back", -command => \&run_menu); + $nxt->configure(-text => "Next >", -command => \&ask_scheme); pack_buttons("cancel", "next"); } @@ -319,8 +319,8 @@ sub ask_scheme { $bf->pack(-expand => 1, -fill => "both"); unpack_buttons(); - $nxt->configure(-command => \&ask_path, -text => "Next"); - $prv->configure(-text => "Back", -command => \&reset_start); + $nxt->configure(-command => \&ask_path, -text => "Next >"); + $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 => "Back", -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 => "Back", -command => \&ask_path); + $prv->configure(-text => "< Back", -command => \&ask_path); pack_buttons("cancel", "prev", "next"); } |