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