Fix the proposed patch since it had unexpected jumping effects in the fonts listbox. bug_8277e1a906

For instance in wish (the extrafont package is supposed to have been installed):

tk fontchooser show  ; # shows existing fonts
package require extrafont
extrafont::load /home/francois/Téléchargements/Term-RegCcc.ttf
tk fontchooser show  ; # check that the new font family "Term" is now available in the listbox
# click on a font family _before_ "Term" -> fine
# click on a font family _after_ "Term" -> the font listbox jumped to the top of the list!

1 files changed, 2 insertions, 0 deletions

diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl
index 14ac650..5395acb 100644
--- a/library/fontchooser.tcl
+++ b/library/fontchooser.tcl
@@ -66,6 +66,8 @@ proc ::tk::fontchooser::Show {} {
         tk::PlaceWindow $S(W) widget $S(-parent)
     }
     set S(fonts) [lsort -dictionary [font families]]
+    set S(fonts,lcase) {}
+    foreach font $S(fonts) { lappend S(fonts,lcase) [string tolower $font]}
     wm deiconify $S(W)
 }