From 03a33a151138dc31681e42407ea3a8ab869bc038 Mon Sep 17 00:00:00 2001
From: Nick White <git@njw.me.uk>
Date: Thu, 30 Jan 2014 17:27:55 +0000
Subject: Colour selection nicely

---
 tkread | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tkread b/tkread
index d078bcd..2dd8960 100755
--- a/tkread
+++ b/tkread
@@ -21,6 +21,7 @@ set fontsize 16
 set textcolour #443322
 set bgcolour #eeeee2
 set outercolour #222222
+set selectbgcolour #ffffff
 set inverttextcolour #eeeeee
 set invertbgcolour #333030
 set invertoutercolour #222222
@@ -156,7 +157,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
+text .t -font "{$fontfamily} $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg $bgcolour -fg $textcolour -relief flat -inactiveselectbackground $selectbgcolour
 pack .t -expand yes -fill y
 set text [read stdin]
 foreach arg $::argv {
@@ -169,7 +170,7 @@ foreach arg $::argv {
 if { $domarkdown } {
 	markup .t
 }
-.t configure -state disabled ;# disable cursor
+.t configure -state disabled ;# disable text insertion & cursor
 
 bind . <Up> {scroll -1 unit}
 bind . <k> {scroll -1 unit}
-- 
cgit v1.2.3