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 | > }}} |