| 5 | | <start quote> |
| 6 | | It seems that the problem come when there is 'bold' or anything else |
| 7 | | after the font without the font size. |
| 8 | | Here is a patch which corrects this: |
| 9 | | |
| 10 | | --- tkdiff.orig 2008-04-18 10:20:54.556590000 +0200 |
| 11 | | +++ tkdiff 2008-04-18 10:25:33.459190000 +0200 |
| 12 | | @@ -155,7 +155,11 @@ |
| 13 | | #debug-info "entryfont $entryfont" |
| 14 | | |
| 15 | | set font [list $textfont] |
| 16 | | -set bold [list [concat $textfont bold]] |
| 17 | | +if {$tk_version < 8.5} { |
| 18 | | + set bold [list [concat $textfont bold]] |
| 19 | | +} else { |
| 20 | | + set bold [list [concat $textfont -12 bold]] |
| 21 | | +} |
| 22 | | #debug-info "font: $font" |
| 23 | | #debug-info "bold: $bold\n" |
| 24 | | option add *Label.font $labelfont userDefault |
| 25 | | |
| 26 | | <end quote> |
| 27 | | |
| | 5 | > It seems that the problem come when there is 'bold' or anything else |
| | 6 | > after the font without the font size. |
| | 7 | > Here is a patch which corrects this: |
| | 8 | > |
| | 9 | > {{{ |
| | 10 | > --- tkdiff.orig 2008-04-18 10:20:54.556590000 +0200 |
| | 11 | > +++ tkdiff 2008-04-18 10:25:33.459190000 +0200 |
| | 12 | > @@ -155,7 +155,11 @@ |
| | 13 | > #debug-info "entryfont $entryfont" |
| | 14 | > |
| | 15 | > set font [list $textfont] |
| | 16 | > -set bold [list [concat $textfont bold]] |
| | 17 | > +if {$tk_version < 8.5} { |
| | 18 | > + set bold [list [concat $textfont bold]] |
| | 19 | > +} else { |
| | 20 | > + set bold [list [concat $textfont -12 bold]] |
| | 21 | > +} |
| | 22 | > #debug-info "font: $font" |
| | 23 | > #debug-info "bold: $bold\n" |
| | 24 | > option add *Label.font $labelfont userDefault |
| | 25 | > }}} |
