[PD-dev] pd.tk [fonts]

[Thomas Musil]

Hi Andre

revision 1.01
 
replace "-font [format -*-courier-----%d-* $font]" by "-font $fontname".
 
############ pdtk_text_new -- create a new text object #2###########
proc pdtk_text_new {canvasname myname x y text font color} {
     if {$font < 8} {set fontname [format -*-pufo-----%d-* $font]}
     if {$font >= 8} {set fontname [format -*-courier-----%d-* $font]}
     $canvasname create text $x $y \
       -font $fontname \
       -tags $myname -text $text -fill $color  -anchor nw
#    pd [concat $myname size [$canvasname bbox $myname] \;]
}

but maybe, you don't see a difference with a smaller font then 8.

good luck
 
Thomas Musil