From 3e9e014c35b9feb948e7f4bf082a9ec5d45c05a2 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 27 Apr 2020 18:46:48 +0000 Subject: 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 --- Master/tlpkg/tltcl/tltcl.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Master/tlpkg/tltcl/tltcl.tcl') 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 -- cgit v1.2.3