diff options
| author | Nick White <git@njw.me.uk> | 2013-11-10 11:02:02 +0000 |
|---|---|---|
| committer | Nick White <git@njw.me.uk> | 2013-11-10 11:02:02 +0000 |
| commit | 0ce06468cccf39214e20dc1e676081dcee99c755 (patch) | |
| tree | b6c88d828459d960734f632a4aff274b5ffe0d79 | |
| parent | 61cadfe2935c77f0c850f4078fe64f8fae5db648 (diff) | |
| download | tkread-0ce06468cccf39214e20dc1e676081dcee99c755.tar.bz2 tkread-0ce06468cccf39214e20dc1e676081dcee99c755.zip | |
Simplify (and decrease) line spacing
| -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" } { |