summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-09-03 18:20:49 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-09-03 18:20:49 (GMT)
commit071315a7089435a43c9d1f29ecb534e41c122665 (patch)
tree57ae675fa81979144b9ef6da4eab8a6ebc777c41
parent8acd334a1e6c5bad786a058d93708d28c6c5fdf6 (diff)
downloadtk-071315a7089435a43c9d1f29ecb534e41c122665.zip
tk-071315a7089435a43c9d1f29ecb534e41c122665.tar.gz
tk-071315a7089435a43c9d1f29ecb534e41c122665.tar.bz2
Fix [8277e1a906]: fontchooser is out of sync with dynamically loaded fonts. Patch from Aldo Buratti.
-rw-r--r--library/fontchooser.tcl1
1 files changed, 1 insertions, 0 deletions
diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl
index 8f91ade..14ac650 100644
--- a/library/fontchooser.tcl
+++ b/library/fontchooser.tcl
@@ -65,6 +65,7 @@ proc ::tk::fontchooser::Show {} {
wm transient $S(W) [winfo toplevel $S(-parent)]
tk::PlaceWindow $S(W) widget $S(-parent)
}
+ set S(fonts) [lsort -dictionary [font families]]
wm deiconify $S(W)
}