diff options
| author | Norbert Preining <preining@logic.at> | 2009-10-11 05:03:45 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-10-11 05:03:45 +0000 |
| commit | 8f99ebab4c7424618544336fb38e289689ae2890 (patch) | |
| tree | 3931f096502cc2fd23f6b03ec7d861d9b8f6fcf7 /Master/tlpkg/installer/install-menu-wizard.pl | |
| parent | ac8f312ec5970d3bad6455d07c1ed3e2ce7f2880 (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.pl | 8 |
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 |