diff options
| author | Norbert Preining <preining@logic.at> | 2009-01-31 12:09:11 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-01-31 12:09:11 +0000 |
| commit | 402d869afd65161f84a8f412964fc98d606ac2d3 (patch) | |
| tree | 4cc6356f9cdfbd4a2aa6536a5c1d94f921a61509 /Master/tlpkg/installer | |
| parent | 9389380b227c7dcf8415d06485a1ba447be3f80a (diff) | |
add arrows to Back and Next
git-svn-id: svn://tug.org/texlive/trunk@12027 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
| -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"); } |