diff options
| -rw-r--r-- | library/fontchooser.tcl | 2 |
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) } |