diff options
| -rwxr-xr-x | tkread | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -149,7 +149,7 @@ if { [lsearch [font families] "$fontfamily"] == -1 } { set fontfamily Times } . configure -bg $outercolour -text .t -font "{$fontfamily} $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg $bgcolour -fg $textcolour -relief flat -inactiveselectbackground {} -cursor {} +text .t -font "{$fontfamily} $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg $bgcolour -fg $textcolour -relief flat pack .t -expand yes -fill y set text [read stdin] foreach arg $::argv { @@ -188,3 +188,4 @@ bind . <q> {exit} bind . <ButtonPress-1> {set drag 1; set lasty -1} bind . <ButtonRelease-1> {set drag 0} bind . <Motion> {if {$drag} { doMotion %y } } +bind .t <Motion> {set drag 0} ;# so text selection can span lines properly |