diff options
author | Norbert Preining <norbert@preining.info> | 2020-04-28 03:02:53 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2020-04-28 03:02:53 +0000 |
commit | 7f8fffa1c8b5b30f8e2a9fd4b76778147dbb9128 (patch) | |
tree | b43fadfafc34c82c8323d6c6ad021c8ef0f81bb7 /systems/texlive/tlnet/tlpkg/tltcl | |
parent | ae496a1c963576dfe63885afa818b2af745ed44a (diff) |
CTAN sync 202004280302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl index e95f919d7f..7af693b564 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl @@ -413,6 +413,7 @@ proc redo_fonts {} { # the above works for menu items, ttk::label, text, ttk::entry # including current value of ttk::combobox, ttk::combobox list items # and non-ttk labels and buttons - which are not used here + # apparently, these widget classes use the X11 default font on Linux. set ::cw \ [expr {max([font measure TkDefaultFont "0"],[font measure TkTextFont "0"])}] @@ -554,7 +555,6 @@ proc place_dlg {wnd {p "."}} { if {$wy < 0} { set wy 0} wm geometry $wnd [format "+%d+%d" $wx $wy] update idletasks - wm attributes $wnd -topmost wm state $wnd normal raise $wnd $p tkwait visibility $wnd |