diff options
author | Norbert Preining <norbert@preining.info> | 2019-10-12 03:00:57 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-10-12 03:00:57 +0000 |
commit | 2e4672ed6f7b49c9d1c44b6ca850cfe7024fc639 (patch) | |
tree | 8cc5672ceb359cb652306244d63afc5f7d939008 /systems/texlive/tlnet/tlpkg/installer | |
parent | d51deaad31c304a71b51411feaf44acceb8aeb1b (diff) |
CTAN sync 201910120300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl | 1 | ||||
-rwxr-xr-x | systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl | 29 |
2 files changed, 18 insertions, 12 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl b/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl index 7e0e7f9fa4..0a1aa08b34 100644 --- a/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl +++ b/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl @@ -23,7 +23,6 @@ $mirrors = { 'http://mirror.iopb.res.in/tex-archive/' => 1 }, 'Iran' => { - 'http://ctan.asis.ai/' => 1, 'http://ctan.yazd.ac.ir/' => 1 }, 'Japan' => { diff --git a/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl b/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl index 69a653fc87..4234f18312 100755 --- a/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl +++ b/systems/texlive/tlnet/tlpkg/installer/install-tl-gui.tcl @@ -539,11 +539,12 @@ proc edit_name {} { } } ppack .tled.ok_b -in .tled.buttons -side right -padx 5 -pady 5 - ttk::button .tled.q_b -text [__ "Cancel"] -command {end_dlg "" .tled} - ppack .tled.q_b -in .tled.buttons -side right -padx 5 -pady 5 - bind .tled <Escape> {.tled.q_b invoke} + ttk::button .tled.cancel_b -text [__ "Cancel"] -command {end_dlg "" .tled} + ppack .tled.cancel_b -in .tled.buttons -side right -padx 5 -pady 5 + bind .tled <Escape> {.tled.cancel_b invoke} - wm protocol .tled WM_DELETE_WINDOW {.tled.q_b invoke} + wm protocol .tled WM_DELETE_WINDOW \ + {cancel_or_destroy .tled.cancel_b .tled} wm resizable .tled 0 0 place_dlg .tled .tltd } ; # edit_name @@ -703,7 +704,8 @@ proc texdir_setup {} { bind .tltd <Return> commit_root bind .tltd <Escape> {destroy .tltd} - wm protocol .tltd WM_DELETE_WINDOW {.tltd.cancel_b invoke} + wm protocol .tltd WM_DELETE_WINDOW \ + {cancel_or_destroy .tltd.cancel_b .tltd} wm resizable .tltd 1 0 place_dlg .tltd } ; # texdir_setup @@ -744,11 +746,12 @@ proc edit_dir {d} { ppack .td.cancel -in .td.f -side right bind .td <Escape> {.td.cancel invoke} - wm protocol .td WM_DELETE_WINDOW {.td.cancel invoke} + wm protocol .td WM_DELETE_WINDOW \ + {cancel_or_destroy .td.cancel .td} wm resizable .td 1 0 place_dlg .td . tkwait window .td - if {$::dialog_ans ne ""} { + if {[info exists ::dialog_ans] && $::dialog_ans ne ""} { set ::vars($d) [forward_slashify $::dialog_ans] if $::vars(instopt_portable) { if {$d eq "TEXMFLOCAL"} {set ::vars(TEXMFHOME) $::vars($d)} @@ -961,7 +964,8 @@ proc select_binaries {} { bind .tlbin.lst <ButtonRelease-1> \ {toggle_bin [.tlbin.lst identify item %x %y]} - wm protocol .tlbin WM_DELETE_WINDOW {.tlbin.cancel invoke} + wm protocol .tlbin WM_DELETE_WINDOW \ + {cancel_or_destroy .tlbin.cancel .tlbin} wm resizable .tlbin 1 1 place_dlg .tlbin . }; # select_binaries @@ -1017,7 +1021,8 @@ proc select_scheme {} { # we already made sure that $::vars(selected_scheme) has a valid value .tlschm.lst selection set [list $::vars(selected_scheme)] - wm protocol .tlschm WM_DELETE_WINDOW {tlschm.cancel invoke} + wm protocol .tlschm WM_DELETE_WINDOW \ + {cancel_or_destroy tlschm.cancel .tlschm} wm resizable .tlschm 1 0 place_dlg .tlschm . }; # select_scheme @@ -1138,7 +1143,8 @@ proc select_collections {} { [list [mark_sym $::vars($c)] [__ $::coll_descs($c)]] } - wm protocol .tlcoll WM_DELETE_WINDOW {.tlcoll.cancel invoke} + wm protocol .tlcoll WM_DELETE_WINDOW \ + {cancel_or_destroy .tlcoll.cancel .tlcoll} wm resizable .tlcoll 1 1 place_dlg .tlcoll . }; # select_collections @@ -1299,7 +1305,8 @@ if {$::tcl_platform(platform) ne "windows"} { check_sym_entries - wm protocol .edsyms WM_DELETE_WINDOW {.edsyms.cancel invoke} + wm protocol .edsyms WM_DELETE_WINDOW \ + {cancel_or_destroy .edsyms.cancel .edsyms} wm resizable .edsyms 1 0 place_dlg .edsyms . } ; # edit_symlinks |