[PD-cvs] pd/src desire.tk,1.1.2.407,1.1.2.408

[chunlee]

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"