[MacPorts] #15423: tkdiff Error in startup script: expected integer but got "bold"

[MacPorts]

#15423: tkdiff Error in startup script: expected integer but got "bold"
-----------------------------------+----------------------------------------
  Reporter:  liontooth at cogweb.net  |       Owner:  macports-tickets at lists.macosforge.org
      Type:  defect                |      Status:  new                                  
  Priority:  Normal                |   Milestone:  Port Bugs                            
 Component:  ports                 |     Version:  1.6.0                                
Resolution:                        |    Keywords:                                       
-----------------------------------+----------------------------------------
Comment (by frigaut at gmail.com):

 there is a fix there, for now (I checked it works).
 http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=473050
 look for message#40:

 <start quote>
 It seems that the problem come when there is 'bold' or anything else
 after the font without the font size.
 Here is a patch which corrects this:

 --- tkdiff.orig    2008-04-18 10:20:54.556590000 +0200
 +++ tkdiff    2008-04-18 10:25:33.459190000 +0200
 @@ -155,7 +155,11 @@
 #debug-info "entryfont $entryfont"

 set font [list $textfont]
 -set bold [list [concat $textfont bold]]
 +if {$tk_version < 8.5} {
 +  set bold [list [concat $textfont bold]]
 +} else {
 +  set bold [list [concat $textfont -12 bold]]
 +}
 #debug-info "font: $font"
 #debug-info "bold: $bold\n"
 option add *Label.font $labelfont userDefault

 <end quote>

-- 
Ticket URL: <http://trac.macports.org/ticket/15423#comment:1>
MacPorts <http://www.macports.org/>
Ports system for Mac OS