summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2018-12-06 20:11:38 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2018-12-06 20:11:38 +0000
commit1029a4f1c9617517f5aab7238fc2afe35216f27b (patch)
tree68bb6245011b622cf9e9bbaeeacd49890819c23e /Master/tlpkg/tltcl
parent518c74d01d42d9007c1b775ca3fd0529734ba466 (diff)
Refinements tlshell.tcl; better error handling tlshell.exe
git-svn-id: svn://tug.org/texlive/trunk@49331 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl14
1 files changed, 9 insertions, 5 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index d4769fc9146..47dd31bd34f 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -258,11 +258,11 @@ set ::cw \
[expr {max([font measure TkDefaultFont "0"],[font measure TkTextFont "0"])}]
# icon
-
-image create photo tl_logo -file \
- [file join $::instroot "tlpkg" "tltcl" "tlmgr.gif"]
-
-wm iconphoto . -default tl_logo
+catch {
+ image create photo tl_logo -file \
+ [file join $::instroot "tlpkg" "tltcl" "tlmgr.gif"]
+ wm iconphoto . -default tl_logo
+}
# default foreground color and disabled foreground color
# may not be black in e.g. dark color schemes
@@ -349,6 +349,10 @@ proc place_dlg {wnd {p "."}} {
} ; # place_dlg
proc end_dlg {ans wnd} {
+ foreach c [winfo children $wnd] {
+ # alternative to catch: check type with [winfo class $wnd]
+ catch {$c state disabled}
+ }
set ::dialog_ans $ans
set p [winfo parent $wnd]
if {$p eq ""} {set p "."}