summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-31 12:09:11 +0000
committerNorbert Preining <preining@logic.at>2009-01-31 12:09:11 +0000
commit402d869afd65161f84a8f412964fc98d606ac2d3 (patch)
tree4cc6356f9cdfbd4a2aa6536a5c1d94f921a61509 /Master/tlpkg
parent9389380b227c7dcf8415d06485a1ba447be3f80a (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')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl12
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");
}