diff options
| -rwxr-xr-x | tkread | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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} |