diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
| -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 9be6c2697d4..b38e52a4897 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -92,6 +92,11 @@ $::run_menu = \&run_menu_wizard; # From here on only function definitions # #################################################################### +sub menu_abort { + $return = $MENU_ABORT; + $mw->destroy; +} + sub setup_hooks_wizard { @::info_hook = (); push @::info_hook, @@ -128,6 +133,7 @@ sub wizard_update_progressbar { sub run_menu_wizard { $mw = Tk::MainWindow->new(-width => $MWIDTH, -height => $MHEIGHT); + $mw->protocol('WM_DELETE_WINDOW' => \&menu_abort); setup_hooks_wizard(); $dest = $vars{'TEXDIR'}; @@ -156,7 +162,7 @@ sub run_menu_wizard { $can = $mw->Button(-width => 10, -relief => "ridge", -text => __('Cancel'), - -command => sub { $return = $MENU_ABORT; $mw->destroy; }); + -command => \&menu_abort); $prv = $mw->Button(-width => 10, -relief => "ridge", -text => __('< Back')); $nxt = $mw->Button(-width => 10, -relief => "ridge", -text => __('Next >')); |