summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtkread3
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