summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/tltcl.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2020-04-27 18:46:48 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2020-04-27 18:46:48 +0000
commit3e9e014c35b9feb948e7f4bf082a9ec5d45c05a2 (patch)
tree7f696a68e9b6b4406143b9b8c90b3cacd0ecc913 /Master/tlpkg/tltcl/tltcl.tcl
parent94216ed129278bf70ac83a4fb3c4e8f117fac5fa (diff)
Tcl GUIs: show again actual scaling in menu. Removed spurious 'attributes -topmost' statements
git-svn-id: svn://tug.org/texlive/trunk@54910 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/tltcl.tcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index e95f919d7f1..7af693b5649 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/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