summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-04-28 03:02:53 +0000
committerNorbert Preining <norbert@preining.info>2020-04-28 03:02:53 +0000
commit7f8fffa1c8b5b30f8e2a9fd4b76778147dbb9128 (patch)
treeb43fadfafc34c82c8323d6c6ad021c8ef0f81bb7 /systems/texlive/tlnet/tlpkg/tltcl
parentae496a1c963576dfe63885afa818b2af745ed44a (diff)
CTAN sync 202004280302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl2
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