diff options
author | Norbert Preining <preining@logic.at> | 2012-03-28 08:46:21 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-03-28 08:46:21 +0000 |
commit | 1e5cccf0aace718f8d055ace38c1e9befef39376 (patch) | |
tree | de9ad767725e64b28e2599da93b3dc2f0fd84d97 /Master/tlpkg/installer | |
parent | 229e8a2ba2350aa6ba522fa55db0de77919af1eb (diff) |
add Quit button on all pages of the wizard installer
git-svn-id: svn://tug.org/texlive/trunk@25757 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rw-r--r-- | Master/tlpkg/installer/install-menu-wizard.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl index 737d2cee972..cdcc74337c6 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -162,7 +162,7 @@ sub run_menu_wizard { $fmain->place(-x => $LEFT, -y => ($TOP + $TITLEHEIGHT)); - $can = $mw->Button(-width => 10, -relief => "ridge", -text => __('Cancel'), + $can = $mw->Button(-width => 10, -relief => "ridge", -text => __('Quit'), -command => \&menu_abort); $prv = $mw->Button(-width => 10, -relief => "ridge", -text => __('< Back')); $nxt = $mw->Button(-width => 10, -relief => "ridge", -text => __('Next >')); @@ -216,6 +216,7 @@ sub reset_start { } }); $nxt->configure(-state => "normal"); + $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw"); } ################## MIRROR SCREEN ################################ @@ -285,6 +286,7 @@ sub ask_mirror { $rb -= 30; $prv->place(-x => $rb, -y => ($MHEIGHT - $BOTTOM), -anchor => "se"); + $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw"); } sub ask_mirror_hierarchical { @@ -371,6 +373,7 @@ sub ask_mirror_hierarchical { $rb -= 30; $prv->place(-x => $rb, -y => ($MHEIGHT - $BOTTOM), -anchor => "se"); + $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw"); } @@ -415,6 +418,7 @@ repository: %s', $TeXLive::TLConfig::ReleaseYear, $texlive_release)); $rb -= 30; $prv->place(-x => $rb, -y => ($MHEIGHT - $BOTTOM), -anchor => "se"); + $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw"); } sub ask_path { @@ -485,6 +489,7 @@ sub ask_path { $rb -= 30; $prv->place(-x => $rb, -y => ($MHEIGHT - $BOTTOM), -anchor => "se"); + $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw"); } sub check_show_warning { @@ -677,6 +682,7 @@ sub ask_go { $nxt->configure(-text => __('Install'), -command => \&wizard_installation_window); $prv->configure(-text => __('< Back'), -command => \&ask_options); + $can->place(-x => $LEFT, -y => ($MHEIGHT - $BOTTOM), -anchor => "sw"); } sub wizard_installation_window { |