diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2018-12-06 20:11:38 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2018-12-06 20:11:38 +0000 |
commit | 1029a4f1c9617517f5aab7238fc2afe35216f27b (patch) | |
tree | 68bb6245011b622cf9e9bbaeeacd49890819c23e /Master/tlpkg/tltcl | |
parent | 518c74d01d42d9007c1b775ca3fd0529734ba466 (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.tcl | 14 |
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 "."} |