summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtkread26
1 files changed, 17 insertions, 9 deletions
diff --git a/tkread b/tkread
index 228ae97..037befb 100755
--- a/tkread
+++ b/tkread
@@ -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" } {