summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tlmgr.gifbin0 -> 1310 bytes
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl8
2 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/tltcl/tlmgr.gif b/Master/tlpkg/tltcl/tlmgr.gif
new file mode 100644
index 00000000000..2a041d1bf9d
--- /dev/null
+++ b/Master/tlpkg/tltcl/tlmgr.gif
Binary files differ
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index e51896973f9..d4769fc9146 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -257,6 +257,13 @@ font configure titlefont -weight bold \
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
+
# default foreground color and disabled foreground color
# may not be black in e.g. dark color schemes
set blk [ttk::style lookup TButton -foreground]
@@ -409,6 +416,7 @@ if {$::tcl_platform(platform) eq "unix"} {
-in .browser.fr1 -side right
ppack [ttk::button .browser.cancel -text [__ "Cancel"]] \
-in .browser.fr1 -side right
+ bind .browser <Escape> {.browser.cancel invoke}
.browser.ok configure -command {
set ::dialog_ans [.browser.tree focus]
destroy .browser