From ccac2d455b4b87c2c75602c2502911ffced4e9cc Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 3 Sep 2017 18:20:49 +0000
Subject: Fix [8277e1a906]: fontchooser is out of sync with dynamically loaded
 fonts. Patch from Aldo Buratti.

---
 library/fontchooser.tcl | 1 +
 1 file changed, 1 insertion(+)

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)
 }
 
-- 
cgit v0.12