[SeS] 4th Nov 2015

Following is created to find all mono spaced font types in a given OS. This can be handy in case of source code editors, their fonts often preferred to be mono spaced. An example how it is used, see [Another Font Chooser Dialog].

======
# ---------------------------------------------------------------------
# Purpose    : extract mono spaced font names within OS system
proc findFontClass {{type mono}} {
  foreach f [font families] {
    if {[font measure "{$f} 8" "A"]==[font measure "{$f} 8" "."]} {lappend fm $f} {lappend fv $f}
  }
  if {"$type"=="mono"} {return $fm} {return $fv}
}
======

This proc is now part of generic_tcl.tcl library of tcl-functions, in [tG²] v1.09.01 - beta 2. 
Tested within a wish.exe console v8.4.19.  
----


<<categories>>Category GUI | Category Example