summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl8
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 {