From 1029a4f1c9617517f5aab7238fc2afe35216f27b Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 6 Dec 2018 20:11:38 +0000 Subject: Refinements tlshell.tcl; better error handling tlshell.exe git-svn-id: svn://tug.org/texlive/trunk@49331 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'Master/tlpkg/tltcl') 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 "."} -- cgit v1.2.3