diff options
| -rwxr-xr-x | tkread | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -90,7 +90,7 @@ proc changeFontSize {change} { set newsize [expr $fontsize $change] if {$newsize > 0} { set fontsize $newsize - .t configure -font "Times $fontsize" -padx [expr $fontsize * 3] -spacing2 [expr [font metrics "Times $fontsize" -linespace] / 4] + .t configure -font "Times $fontsize" -padx [expr $fontsize * 3] for {set x 0} {$x < $tagnum} {incr x} { set fmtstring [lindex [lindex $surroundfmt $x] 1] .t tag configure tag_$x -font "Times $fontsize $fmtstring" @@ -127,7 +127,7 @@ proc doMotion {ypos} { } . configure -bg #f8f8f5 -text .t -font "Times $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg white -fg $colour -spacing2 [expr [font metrics "Times $fontsize" -linespace] / 4] -relief flat -inactiveselectbackground {} -cursor {} +text .t -font "Times $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg white -fg $colour -relief flat -inactiveselectbackground {} -cursor {} pack .t -expand yes -fill y set text [read stdin] if { $::argc > 0 && [lindex $::argv 0] == "-w" } { |