Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4051
Modified Files: Tag: devel_0_39 desire.tk Log Message: small commit to insert all avaiable font families found by [font families]
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.407 retrieving revision 1.1.2.408 diff -C2 -d -r1.1.2.407 -r1.1.2.408 *** desire.tk 25 Aug 2006 23:06:10 -0000 1.1.2.407 --- desire.tk 25 Aug 2006 23:18:26 -0000 1.1.2.408 *************** *** 5943,5952 **** pack [scrollbar $f.font.list.scroll -relief sunken -command "$f.font.list.box yview"] -side right -fill y ! # Insert the font names into the list box ! foreach name {Schumacher Utopia Charter Clean Courier Helvetica Lucida LucidaBright\ ! LucidaTypewriter {New Century Schoolbook} Symbol Times\ ! fixed terminal} { ! $f.font.list.box insert end $name ! } bind $f.font.list.box <ButtonRelease-1> "$self update" --- 5943,5947 ---- pack [scrollbar $f.font.list.scroll -relief sunken -command "$f.font.list.box yview"] -side right -fill y ! foreach name [font families] { $f.font.list.box insert end $name} bind $f.font.list.box <ButtonRelease-1> "$self update"