diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2018-11-30 20:26:40 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2018-11-30 20:26:40 +0000 |
| commit | b006f4cd3646632bf6f75a28132194a04df83855 (patch) | |
| tree | 7e32585cf3d17d054394abadfee3cf9d801a6e52 /Master/tlpkg/tltcl | |
| parent | 7d128fb87545e91983e817816b46b9ae9dae5979 (diff) | |
Various tweaks
git-svn-id: svn://tug.org/texlive/trunk@49281 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
| -rw-r--r-- | Master/tlpkg/tltcl/tlmgr.gif | bin | 0 -> 1310 bytes | |||
| -rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 8 |
2 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/tltcl/tlmgr.gif b/Master/tlpkg/tltcl/tlmgr.gif Binary files differnew file mode 100644 index 00000000000..2a041d1bf9d --- /dev/null +++ b/Master/tlpkg/tltcl/tlmgr.gif 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 |
