#15423 closed defect (fixed)
tkdiff Error in startup script: expected integer but got "bold"
Reported by: | liontooth@… | Owned by: | macports-tickets@… |
---|---|---|---|
Priority: | Normal | Milestone: | |
Component: | ports | Version: | 1.6.0 |
Keywords: | Cc: | jmroot (Joshua Root) | |
Port: | tkdiff |
Description
Built tkdiff on PPC under 10.4.11. Starts fine; I successfully use it to browse and find two files. When I click "OK", the program aborts with this error:
$ tkdiff Error in startup script: expected integer but got "bold" (processing "-font" option) invoked from within ".client.left.text tag configure inlinetag -background DodgerBlue -font {TkFixedFont bold}" ("eval" body line 1) invoked from within "eval "$widget tag configure $tag $opts($tag)"" (procedure "build-client" line 106) invoked from within "build-client" (procedure "create-display" line 40) invoked from within "create-display" (procedure "main" line 57) invoked from within "main" (file "/opt/local/bin/tkdiff" line 9515)
Cheers, Dave
Change History (4)
comment:1 Changed 16 years ago by frigaut (Francois Rigaut)
comment:2 Changed 16 years ago by jmroot (Joshua Root)
Port: | tkdiff added |
---|
comment:3 Changed 16 years ago by jmroot (Joshua Root)
Cc: | jmr@… added |
---|---|
Resolution: | → fixed |
Status: | new → closed |
Seems to be fixed by r45816.
Note: See
TracTickets for help on using
tickets.
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>