Enable text selection

1 files changed, 2 insertions, 1 deletions

diff --git a/tkread b/tkread
index 3d703f3..c501c04 100755
--- a/tkread
+++ b/tkread
@@ -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