Change the colors to be less saturated.

diff --git a/bin/sockspy.tcl b/bin/sockspy.tcl
index 18a732fd6fcbb9c4027455e94a6b39e3c642ba02..204a396dbb1620acfc1f2bbd5ce80d31278eab91 100644 (file)
--- a/bin/sockspy.tcl
+++ b/bin/sockspy.tcl
@@ -126,7 +126,14 @@ set saveList {
     SP(servHost)
 }
 
-array set colors {client green server cyan meta red meta2 yellow}
+# roughly: lightgreen, lightblue, tomato, sand
+array set colors {
+    client "#90ee90"
+    server "#b1eaf9"
+    meta "#ed9276"
+    meta2 "#edcd76"
+}
+
 array set SP {proxyPort 8080 clntPort 8080 servHost "" servPort 80}
 
 set extract(client) {^(GET |POST |HEAD )}
@@ -264,12 +271,11 @@ proc createMain {} {
     ${NS}::scrollbar .yscroll -orient vertical -command {.out yview}
     ${NS}::scrollbar .xscroll -orient horizontal -command {.out xview}
     text .out -width 80 -height 43 -font $state(fixed) -background white -setgrid 1 \
-           -yscrollcommand ".yscroll set" -xscrollcommand ".xscroll set" -borderwidth 1
+        -yscrollcommand ".yscroll set" -xscrollcommand ".xscroll set" -borderwidth 1
     foreach t [array names colors] {
-       .out tag configure $t -background $colors($t) -borderwidth 1 \
-           -relief raised -lmargin1 5 -lmargin2 5
-       .out tag configure time_$t -background $colors($t) -borderwidth 1 \
-           -relief raised -lmargin1 5 -lmargin2 5 -font $state(fixedbold)
+        .out tag configure $t -background $colors($t) \
+            -lmargin1 5 -lmargin2 5
+        .out tag configure time_$t -background $colors($t) -font $state(fixedbold)
     }
     .out tag configure sockname -elide 1
     .out tag configure client2 -font $state(fixedbold)