Revision: 10634 http://pure-data.svn.sourceforge.net/pure-data/?rev=10634&view=rev Author: mescalinum Date: 2009-01-25 14:22:45 +0000 (Sun, 25 Jan 2009)

Log Message: ----------- fix: when user specifies unexisting font, just pick a default font; do the same with weight.

Modified Paths: -------------- branches/pd-devel/0.41.4/src/pd.tk

Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2009-01-25 06:43:15 UTC (rev 10633) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-25 14:22:45 UTC (rev 10634) @@ -147,6 +147,18 @@ # this proc creates all the needed fonts so that they fit # into the metrics given by $::font_fixed_metrics proc fit_font_into_metrics {} { + set defaultfamily {Courier New} + set defaultweight {normal} + + set availweight {normal bold} + set availfamily [font families] + foreach i {weight family} { + if {[lsearch -exact [set avail$i] [set ::font_$i]] < 0} { + puts "bad font-$i: '[set ::font_$i]'. using default '[set default$i]'" + set ::font_$i [set default$i] + } + } + foreach {size width height} $::font_fixed_metrics { set myfont [pdtk_font_name $size] font create $myfont -family $::font_family -weight $::font_weight \

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.