summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-10-12 22:10:33 +0000
committerKarl Berry <karl@freefriends.org>2019-10-12 22:10:33 +0000
commit1c26727cf69f1b86d327367894528711b41bff7d (patch)
tree5a5456ac80c5326c713ec2ccf8a844ce23504647 /Build
parent464faeebf3487adf47a1b79022f04e9fa2279161 (diff)
l3 (13oct19)
git-svn-id: svn://tug.org/texlive/trunk@52357 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl11
1 files changed, 8 insertions, 3 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl b/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
index e9bedea6890..c34147b4d8e 100755
--- a/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
+++ b/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
@@ -167,8 +167,10 @@ proc long_message {str type {p "."}} {
}
if [winfo exists .tlmg.cancel] {
bind .tlmg <Escape> {.tlmg.cancel invoke}
+ wm protocol WM_DELETE_WINDOW {cancel_or_destroy .tlmg.cancel .tlmg}
} elseif {$type eq "ok"} {
bind .tlmg <Escape> {.tlmg.ok invoke}
+ wm protocol WM_DELETE_WINDOW {cancel_or_destroy .tlmg.ok .tlmg}
}
ppack [ttk::frame .tlmg.tx] -in .tlmg.bg -side top -fill both -expand 1
@@ -796,6 +798,7 @@ If this takes too long, press Abort and choose another repository." \
}
ttk::button .loading.abo -text [__ "Abort"] -command abort_load
ppack .loading.abo -in .loading.buttons -side right
+ wm protocol .loading {cancel_or_destroy .loading.abo .loading}
wm resizable .loading 0 0
place_dlg .loading .
} ; # splash_loading
@@ -918,7 +921,8 @@ proc show_logs {} {
ppack [ttk::label .tllg.status -textvariable ::busy -anchor w] \
-in .tllg.bottom -side left
bind .tllg <Escape> {.tllg.close invoke}
- wm protocol .tllg WM_DELETE_WINDOW {.tllg.close invoke}
+ wm protocol .tllg WM_DELETE_WINDOW \
+ {cancel_or_destroy .tllg.close .tllg}
# notebook pages and scrollbars
ttk::frame .tllg.log
@@ -1271,7 +1275,8 @@ proc repository_dialog {} {
ppack .tlr.cancel -in .tlr.closebuttons -side right
bind .tlr <Escape> {.tlr.cancel invoke}
- wm protocol .tlr WM_DELETE_WINDOW {.tlr.cancel invoke}
+ wm protocol .tlr WM_DELETE_WINDOW \
+ {cancel_or_destroy .tlr.cancel .tlr}
wm resizable .tlr 1 0
place_dlg .tlr .
} ; # repository_dialog
@@ -2314,7 +2319,7 @@ proc populate_main {} {
bind .pkg_popup <Leave> {.pkg_popup unpost}
}
- wm protocol . WM_DELETE_WINDOW {.q invoke}
+ wm protocol . WM_DELETE_WINDOW {cancel_or_destroy .q .}
wm resizable . 1 1
wm state . normal
}