summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-wizard.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-10-11 05:03:45 +0000
committerNorbert Preining <preining@logic.at>2009-10-11 05:03:45 +0000
commit8f99ebab4c7424618544336fb38e289689ae2890 (patch)
tree3931f096502cc2fd23f6b03ec7d861d9b8f6fcf7 /Master/tlpkg/installer/install-menu-wizard.pl
parentac8f312ec5970d3bad6455d07c1ed3e2ce7f2880 (diff)
make installer kbd-friendly, patch from Alexander Cherepanov with fix
from me. git-svn-id: svn://tug.org/texlive/trunk@15760 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index 6ce16a8ed3f..3d69171ed29 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -157,14 +157,14 @@ 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 >'));
$can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw");
my $rb = $MWIDTH - $RIGHT;
$nxt->place(-x => ($MWIDTH - $RIGHT) ,
- -y => ($MHEIGHT - $BOTTOM), -anchor => "se");
+ -y => ($MHEIGHT - $BOTTOM), -anchor => "se")->focus();
reset_start();
@@ -270,7 +270,7 @@ sub change_path {
$sw->grab();
$sw->Label(-text => __('Enter path for') . " TEXDIR: ")->pack(-padx => "2m", -pady => "2m");
my $entry = $sw->Entry(-textvariable => $val, -width => 60);
- $entry->pack(-padx => "2m", -pady => "2m");
+ $entry->pack(-padx => "2m", -pady => "2m")->focus();
my $f = $sw->Frame;
my $okbutton = $f->Button(-text => __('Ok'), -width => 10,
-relief => "ridge",
@@ -411,7 +411,7 @@ sub wizard_installation_window {
for ($fmain->children) {
$_->destroy;
}
- $counter->configure(-text => "4/4");
+ $counter->configure(-text => "5/5");
# create a progress bar window
# compute the height of the Text by the given font