diff options
| -rwxr-xr-x | tkread | 26 |
1 files changed, 17 insertions, 9 deletions
@@ -14,8 +14,14 @@ # - add more markdown processing and control it using a flag # - use font create / configure to name a font to simplify changing its size -set fontsize 20 -set colour #554422 +set fontsize 15 +set textcolour #443322 +set bgcolour #eeeeee +set outercolour #f8f8f5 +set inverttextcolour #eeeeee +set invertbgcolour #333030 +set invertoutercolour #222222 + set inverted 0 set drag 0 set tagnum 0 @@ -99,15 +105,17 @@ proc changeFontSize {change} { } proc invertColours {} { - global inverted colour + global inverted + global bgcolour textcolour outercolour + global invertbgcolour inverttextcolour invertoutercolour if {$inverted} { set inverted 0 - .t configure -bg white -fg $colour - . configure -bg #f8f8f5 + .t configure -bg $bgcolour -fg $textcolour + . configure -bg $outercolour } else { set inverted 1 - .t configure -bg $colour -fg #eeeeee - . configure -bg #222222 + .t configure -bg $invertbgcolour -fg $inverttextcolour + . configure -bg $invertoutercolour } } @@ -126,8 +134,8 @@ proc doMotion {ypos} { set lasty $ypos } -. configure -bg #f8f8f5 -text .t -font "Times $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg white -fg $colour -relief flat -inactiveselectbackground {} -cursor {} +. configure -bg $outercolour +text .t -font "Times $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg $bgcolour -fg $textcolour -relief flat -inactiveselectbackground {} -cursor {} pack .t -expand yes -fill y set text [read stdin] if { $::argc > 0 && [lindex $::argv 0] == "-w" } { |