diff options
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 "."} |