summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl21
1 files changed, 4 insertions, 17 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
index 658e5313111..5d066d86740 100755
--- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl
+++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
@@ -523,18 +523,6 @@ proc run_cmd_waiting {cmd} {
# display_packages_info is mostly invoked by collect_filtered, but
# also when the search term or the search option changes.
-proc check_tlmgr_updatable {} {
- run_cmd_waiting "update --self --list"
- foreach l $::out_log {
- if [regexp {^total-bytes[ \t]+([0-9]+)$} $l m b] {
- do_debug "matches, $b"
- set ::need_update_tlmgr [expr {$b > 0 ? 1 : 0}]
- return
- }
- }
- do_debug "check_tlmgr_uptodate: should not get here"
-} ; # check_tlmgr_uptodate
-
proc is_updatable {nm} {
set pk [dict get $::pkgs $nm]
set lr [dict get $pk localrev]
@@ -548,7 +536,7 @@ proc update_globals {} {
foreach nm [dict keys $::pkgs] {
if [is_updatable $nm] {incr ::n_updates}
}
- check_tlmgr_updatable
+ set ::need_update_tlmgr [is_updatable texlive.infra]
set ::tlshell_updatable [is_updatable tlshell]
# also update displayed status info
@@ -1209,6 +1197,7 @@ proc repository_dialog {} {
ppack .tlr.abort -in .tlr.closebuttons -side right
bind .tlr <Escape> {.tlr.abort invoke}
+ wm protocol .tlr WM_DELETE_WINDOW {.tlr.abort invoke}
wm resizable .tlr 1 0
place_dlg .tlr .
} ; # repository_dialog
@@ -2022,11 +2011,9 @@ proc populate_main {} {
.mn add cascade -label [__ "Help"] -menu .mn.help -underline 0
menu .mn.help
.mn.help add command -label [__ "About"] -command {
- tk_messageBox -message [__ "Copyright 2017, 2018 Siep Kroonenberg
+ tk_messageBox -message [string cat "\u00a9 2017-2019 Siep Kroonenberg
-GUI interface for TeX Live Manager
-Implemented in Tcl/Tk
-"]}
+" [__ "GUI interface for TeX Live Manager\nImplemented in Tcl/Tk"]]}
.mn.help add command -label [__ "tlmgr help"] -command show_help
# wallpaper frame