From 0ce06468cccf39214e20dc1e676081dcee99c755 Mon Sep 17 00:00:00 2001 From: Nick White Date: Sun, 10 Nov 2013 11:02:02 +0000 Subject: Simplify (and decrease) line spacing --- tkread | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tkread b/tkread index 38d1252..228ae97 100755 --- a/tkread +++ b/tkread @@ -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" } { -- cgit v1.2.3